| 898 |
procedure TOptionDialog.SettingApply; |
procedure TOptionDialog.SettingApply; |
| 899 |
var |
var |
| 900 |
i: Integer; |
i: Integer; |
| 901 |
|
ThreadItem: TThreadItem; |
| 902 |
begin |
begin |
| 903 |
GikoForm.TreeView.Items.BeginUpdate; |
GikoForm.TreeView.Items.BeginUpdate; |
| 904 |
GikoForm.ListView.Items.BeginUpdate; |
GikoForm.ListView.Items.BeginUpdate; |
| 936 |
GikoForm.AddressComboBox.Items.Delete(i); |
GikoForm.AddressComboBox.Items.Delete(i); |
| 937 |
end; |
end; |
| 938 |
GikoForm.AddressComboBox.TabStop := GikoSys.Setting.AddressBarTabStop; |
GikoForm.AddressComboBox.TabStop := GikoSys.Setting.AddressBarTabStop; |
| 939 |
|
|
| 940 |
|
// スレッドのリフレッシュ |
| 941 |
|
ThreadItem := GikoForm.GetActiveContent; |
| 942 |
|
if ThreadItem <> nil then |
| 943 |
|
GikoForm.SetContent( ThreadItem ); |
| 944 |
end; |
end; |
| 945 |
|
|
| 946 |
procedure TOptionDialog.ReadProxyCheckClick(Sender: TObject); |
procedure TOptionDialog.ReadProxyCheckClick(Sender: TObject); |
| 1213 |
|
|
| 1214 |
procedure TOptionDialog.CSSPreview; |
procedure TOptionDialog.CSSPreview; |
| 1215 |
var |
var |
| 1216 |
|
Board: TBoard; |
| 1217 |
ThreadItem: TThreadItem; |
ThreadItem: TThreadItem; |
| 1218 |
html: string; |
html: string; |
| 1219 |
sTitle: string; |
sTitle: string; |
| 1238 |
end; |
end; |
| 1239 |
end; |
end; |
| 1240 |
|
|
| 1241 |
|
Board := TBoard.Create; |
| 1242 |
ThreadItem := TThreadItem.Create; |
ThreadItem := TThreadItem.Create; |
| 1243 |
|
|
| 1244 |
try |
try |
| 1245 |
ThreadItem.ParentBoard := nil; |
Board.URL := 'about://sample/'; |
| 1246 |
|
Board.Title := 'サンプル板'; |
| 1247 |
|
ThreadItem.ParentBoard := Board; |
| 1248 |
ThreadItem.AllResCount := High( Res ); |
ThreadItem.AllResCount := High( Res ); |
| 1249 |
ThreadItem.NewResCount := 1; |
ThreadItem.NewResCount := 1; |
| 1250 |
ThreadItem.NewReceive := 2; |
ThreadItem.NewReceive := 2; |
| 1329 |
|
|
| 1330 |
finally |
finally |
| 1331 |
ThreadItem.Free; |
ThreadItem.Free; |
| 1332 |
|
Board.Free; |
| 1333 |
GikoSys.Setting.CSSFileName := fileName; |
GikoSys.Setting.CSSFileName := fileName; |
| 1334 |
end; |
end; |
| 1335 |
|
|