Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/Option.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.78 by h677, Mon Aug 22 15:05:31 2005 UTC revision 1.78.2.1 by h677, Sun Oct 30 04:39:04 2005 UTC
# Line 201  type Line 201  type
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);
# Line 615  begin Line 616  begin
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;
# Line 912  begin Line 916  begin
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';

Legend:
Removed from v.1.78  
changed lines
  Added in v.1.78.2.1

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26