| 258 |
|
|
| 259 |
procedure TOptionDialog.FormCreate(Sender: TObject); |
procedure TOptionDialog.FormCreate(Sender: TObject); |
| 260 |
begin |
begin |
| 261 |
|
CSSBrowser.Navigate('about:blank'); |
| 262 |
FClose := True; |
FClose := True; |
| 263 |
|
|
| 264 |
OptionTab.ActivePage := ConnectSheet; |
OptionTab.ActivePage := ConnectSheet; |
| 277 |
CSSCheckBoxClick(Sender); |
CSSCheckBoxClick(Sender); |
| 278 |
PostTimeCheckBoxClick(Sender); |
PostTimeCheckBoxClick(Sender); |
| 279 |
|
|
| 280 |
CSSBrowser.Navigate('about:blank'); |
|
| 281 |
end; |
end; |
| 282 |
|
|
| 283 |
procedure TOptionDialog.FormDestroy(Sender: TObject); |
procedure TOptionDialog.FormDestroy(Sender: TObject); |
| 1187 |
var |
var |
| 1188 |
doc : Variant; |
doc : Variant; |
| 1189 |
begin |
begin |
| 1190 |
doc := CSSBrowser.Document; |
if CSSBrowser.Document <> nil then begin |
| 1191 |
doc.Clear; |
doc := CSSBrowser.Document; |
| 1192 |
doc.open; |
doc.open; |
| 1193 |
doc.charset := 'Shift_JIS'; |
doc.Clear; |
| 1194 |
doc.Write(Content); |
doc.charset := 'Shift_JIS'; |
| 1195 |
doc.Close; |
doc.Write(Content); |
| 1196 |
|
doc.Close; |
| 1197 |
|
end; |
| 1198 |
end; |
end; |
| 1199 |
|
|
| 1200 |
procedure TOptionDialog.CSSPreview; |
procedure TOptionDialog.CSSPreview; |
| 1213 |
GikoSys.Setting.CSSFileName := 'default.css'; |
GikoSys.Setting.CSSFileName := 'default.css'; |
| 1214 |
if CSSListView.Items.Count > 0 then begin |
if CSSListView.Items.Count > 0 then begin |
| 1215 |
try |
try |
| 1216 |
if CSSListView.Items[CSSListView.ItemIndex].Data <> nil then |
if CSSListView.ItemIndex >= 0 then begin |
| 1217 |
GikoSys.Setting.CSSFileName := string( CSSListView.Items[CSSListView.ItemIndex].data ) |
if CSSListView.Items[CSSListView.ItemIndex].Data <> nil then |
| 1218 |
else |
GikoSys.Setting.CSSFileName := string( CSSListView.Items[CSSListView.ItemIndex].data ) |
| 1219 |
GikoSys.Setting.CSSFileName := CSSListView.Items[CSSListView.ItemIndex].Caption + '.css'; |
else |
| 1220 |
|
GikoSys.Setting.CSSFileName := CSSListView.Items[CSSListView.ItemIndex].Caption + '.css'; |
| 1221 |
|
end; |
| 1222 |
except |
except |
| 1223 |
end; |
end; |
| 1224 |
end; |
end; |