| 201 |
Label18: TLabel; |
Label18: TLabel; |
| 202 |
UnFocusedBoldCheckBox: TCheckBox; |
UnFocusedBoldCheckBox: TCheckBox; |
| 203 |
IgnoreKanaCheckBox: TCheckBox; |
IgnoreKanaCheckBox: TCheckBox; |
| 204 |
|
UseKatjuTypeSkinCheckBox: TCheckBox; |
| 205 |
procedure FormCreate(Sender: TObject); |
procedure FormCreate(Sender: TObject); |
| 206 |
procedure FormDestroy(Sender: TObject); |
procedure FormDestroy(Sender: TObject); |
| 207 |
procedure ApplyButtonClick(Sender: TObject); |
procedure ApplyButtonClick(Sender: TObject); |
| 616 |
EditorMemo.Color := GikoSys.Setting.EditorBackColor; |
EditorMemo.Color := GikoSys.Setting.EditorBackColor; |
| 617 |
//CSS表示 |
//CSS表示 |
| 618 |
CSSCheckBox.Checked := GikoSys.Setting.UseCSS; |
CSSCheckBox.Checked := GikoSys.Setting.UseCSS; |
| 619 |
|
//かちゅスキン使用 |
| 620 |
|
UseKatjuTypeSkinCheckBox.Checked := GikoSys.Setting.UseKatjushaType; |
| 621 |
|
|
| 622 |
if FCSSFont <> nil then |
if FCSSFont <> nil then |
| 623 |
FCSSFont.Free; |
FCSSFont.Free; |
| 624 |
FCSSFont := TFont.Create; |
FCSSFont := TFont.Create; |
| 916 |
//CSS表示 |
//CSS表示 |
| 917 |
if GikoSys.Setting.UseCSS <> CSSCheckBox.Checked then FRepaintThread := true; |
if GikoSys.Setting.UseCSS <> CSSCheckBox.Checked then FRepaintThread := true; |
| 918 |
GikoSys.Setting.UseCSS := CSSCheckBox.Checked; |
GikoSys.Setting.UseCSS := CSSCheckBox.Checked; |
| 919 |
|
GikoSys.Setting.UseKatjushaType := UseKatjuTypeSkinCheckBox.Checked; |
| 920 |
//CSSファイル名 |
//CSSファイル名 |
| 921 |
tmp := GikoSys.Setting.CSSFileName; |
tmp := GikoSys.Setting.CSSFileName; |
| 922 |
GikoSys.Setting.CSSFileName := 'default.css'; |
GikoSys.Setting.CSSFileName := 'default.css'; |