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.75 by h677, Sat Jun 25 11:27:21 2005 UTC revision 1.76 by h677, Mon Jul 18 03:55:14 2005 UTC
# Line 199  type Line 199  type
199      Label17: TLabel;      Label17: TLabel;
200      MaxRecordCountEdit: TEdit;      MaxRecordCountEdit: TEdit;
201      Label18: TLabel;      Label18: TLabel;
202        UnFocusedBoldCheckBox: TCheckBox;
203                  procedure FormCreate(Sender: TObject);                  procedure FormCreate(Sender: TObject);
204                  procedure FormDestroy(Sender: TObject);                  procedure FormDestroy(Sender: TObject);
205                  procedure ApplyButtonClick(Sender: TObject);                  procedure ApplyButtonClick(Sender: TObject);
# Line 590  begin Line 591  begin
591          OddResNumCheckBox.Checked := GikoSys.Setting.UseOddColorOddResNum;          OddResNumCheckBox.Checked := GikoSys.Setting.UseOddColorOddResNum;
592          OddResNumColorBox.Selected := GikoSys.Setting.OddColor;          OddResNumColorBox.Selected := GikoSys.Setting.OddColor;
593          OddResNumColorBox.Enabled := OddResNumCheckBox.Checked;          OddResNumColorBox.Enabled := OddResNumCheckBox.Checked;
594            UnFocusedBoldCheckBox.Checked := GikoSys.Setting.UnFocusedBold;
595            UnFocusedBoldCheckBox.Enabled := OddResNumCheckBox.Checked;
596    
597          //ブラウザポップアップフォント          //ブラウザポップアップフォント
598          HintMemo.Font.Name := GikoSys.Setting.HintFontName;          HintMemo.Font.Name := GikoSys.Setting.HintFontName;
# Line 895  begin Line 898  begin
898          GikoSys.Setting.ListBackColor := ListMemo.Color;          GikoSys.Setting.ListBackColor := ListMemo.Color;
899          GikoSys.Setting.UseOddColorOddResNum := OddResNumCheckBox.Checked;          GikoSys.Setting.UseOddColorOddResNum := OddResNumCheckBox.Checked;
900          GikoSys.Setting.OddColor := OddResNumColorBox.Selected;          GikoSys.Setting.OddColor := OddResNumColorBox.Selected;
901            GikoSys.Setting.UnFocusedBold := (UnFocusedBoldCheckBox.Enabled) and
902                                                                                    (UnFocusedBoldCheckBox.Checked);
903    
904          GikoSys.Setting.HintFontName := HintMemo.Font.Name;          GikoSys.Setting.HintFontName := HintMemo.Font.Name;
905          GikoSys.Setting.HintFontSize := HintMemo.Font.Size;          GikoSys.Setting.HintFontSize := HintMemo.Font.Size;
# Line 1178  begin Line 1183  begin
1183    
1184                  //GikoForm.ListView.Color := GikoSys.Setting.ListBackColor;                  //GikoForm.ListView.Color := GikoSys.Setting.ListBackColor;
1185                  GikoForm.ListViewBackGroundColor := GikoSys.Setting.ListBackColor;                  GikoForm.ListViewBackGroundColor := GikoSys.Setting.ListBackColor;
1186                  GikoForm.UseOddResOddColor := GikoSys.Setting.UseOddColorOddResNum;                  GikoForm.UseOddResOddColor := GikoSys.Setting.UseOddColorOddResNum;
1187                  GikoForm.OddColor := GikoSys.Setting.OddColor;                  GikoForm.OddColor := GikoSys.Setting.OddColor;
1188                    GikoSys.Setting.UnFocusedBold := (UnFocusedBoldCheckBox.Enabled) and
1189                                                                                            (UnFocusedBoldCheckBox.Checked);
1190    
1191                  GikoForm.BrowserTab.Font.Name := GikoSys.Setting.BrowserTabFontName;                  GikoForm.BrowserTab.Font.Name := GikoSys.Setting.BrowserTabFontName;
1192                  GikoForm.BrowserTab.Font.Size := GikoSys.Setting.BrowserTabFontSize;                  GikoForm.BrowserTab.Font.Size := GikoSys.Setting.BrowserTabFontSize;
# Line 1620  end; Line 1627  end;
1627  procedure TOptionDialog.OddResNumCheckBoxClick(Sender: TObject);  procedure TOptionDialog.OddResNumCheckBoxClick(Sender: TObject);
1628  begin  begin
1629          OddResNumColorBox.Enabled := OddResNumCheckBox.Checked;          OddResNumColorBox.Enabled := OddResNumCheckBox.Checked;
1630            UnFocusedBoldCheckBox.Enabled := OddResNumCheckBox.Checked;
1631  end;  end;
1632    
1633  procedure TOptionDialog.ResRangeHoldCheckBoxClick(Sender: TObject);  procedure TOptionDialog.ResRangeHoldCheckBoxClick(Sender: TObject);

Legend:
Removed from v.1.75  
changed lines
  Added in v.1.76

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