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.22 by yoffy, Sun Nov 2 16:11:10 2003 UTC revision 1.23 by h677, Sun Nov 16 19:34:14 2003 UTC
# Line 175  type Line 175  type
175                  RemoveURLButton: TButton;                  RemoveURLButton: TButton;
176                  GroupBox15: TGroupBox;                  GroupBox15: TGroupBox;
177                  ShowDialogForEndCheckBox: TCheckBox;                  ShowDialogForEndCheckBox: TCheckBox;
178        OddResNumCheckBox: TCheckBox;
179        OddResNumColorBox: TColorBox;
180                  procedure FormCreate(Sender: TObject);                  procedure FormCreate(Sender: TObject);
181                  procedure FormDestroy(Sender: TObject);                  procedure FormDestroy(Sender: TObject);
182                  procedure ApplyButtonClick(Sender: TObject);                  procedure ApplyButtonClick(Sender: TObject);
# Line 224  type Line 226  type
226                          Change: TItemChange);                          Change: TItemChange);
227                  procedure AddURLButtonClick(Sender: TObject);                  procedure AddURLButtonClick(Sender: TObject);
228                  procedure RemoveURLButtonClick(Sender: TObject);                  procedure RemoveURLButtonClick(Sender: TObject);
229        procedure OddResNumCheckBoxClick(Sender: TObject);
230          private          private
231                  { Private 宣言 }                  { Private 宣言 }
232                  FClose: Boolean;                  FClose: Boolean;
# Line 284  begin Line 287  begin
287          lblSFont.Caption := '★重要★'#13#10#13#10          lblSFont.Caption := '★重要★'#13#10#13#10
288                                                                                  + 'スレッド表示エリアのフォント変更は、'#13#10                                                                                  + 'スレッド表示エリアのフォント変更は、'#13#10
289                                                                                  + '「CSS とスキン」タブで設定出来ます';                                                                                  + '「CSS とスキン」タブで設定出来ます';
290          CSSCheckBoxClick(Sender);  
291    
292        CSSCheckBoxClick(Sender);
293          PostTimeCheckBoxClick(Sender);          PostTimeCheckBoxClick(Sender);
294    
295          if OptionTab.PageCount > GikoSys.Setting.OptionDialogTabIndex then begin          if OptionTab.PageCount > GikoSys.Setting.OptionDialogTabIndex then begin
# Line 543  begin Line 548  begin
548          ListMemo.Font.Size := GikoSys.Setting.ListFontSize;          ListMemo.Font.Size := GikoSys.Setting.ListFontSize;
549          ListMemo.Font.Color := GikoSys.Setting.ListFontColor;          ListMemo.Font.Color := GikoSys.Setting.ListFontColor;
550          ListMemo.Color := GikoSys.Setting.ListBackColor;          ListMemo.Color := GikoSys.Setting.ListBackColor;
551        //レス数増減スレ強調表示チェックボックス&カラーダイアログ
552        OddResNumCheckBox.Checked := GikoSys.Setting.UseOddColorOddResNum;
553        OddResNumColorBox.Selected := GikoSys.Setting.OddColor;
554        OddResNumColorBox.Enabled := OddResNumCheckBox.Checked;
555        
556          //ブラウザポップアップフォント          //ブラウザポップアップフォント
557          HintMemo.Font.Name := GikoSys.Setting.HintFontName;          HintMemo.Font.Name := GikoSys.Setting.HintFontName;
558          HintMemo.Font.Size := GikoSys.Setting.HintFontSize;          HintMemo.Font.Size := GikoSys.Setting.HintFontSize;
# Line 770  begin Line 780  begin
780          GikoSys.Setting.ListFontSize := ListMemo.Font.Size;          GikoSys.Setting.ListFontSize := ListMemo.Font.Size;
781          GikoSys.Setting.ListFontColor := ListMemo.Font.Color;          GikoSys.Setting.ListFontColor := ListMemo.Font.Color;
782          GikoSys.Setting.ListBackColor := ListMemo.Color;          GikoSys.Setting.ListBackColor := ListMemo.Color;
783        GikoSys.Setting.UseOddColorOddResNum := OddResNumCheckBox.Checked;
784        GikoSys.Setting.OddColor := OddResNumColorBox.Selected;
785    
786          GikoSys.Setting.HintFontName := HintMemo.Font.Name;          GikoSys.Setting.HintFontName := HintMemo.Font.Name;
787          GikoSys.Setting.HintFontSize := HintMemo.Font.Size;          GikoSys.Setting.HintFontSize := HintMemo.Font.Size;
# Line 947  begin Line 959  begin
959                  GikoForm.ListView.Font.Name := GikoSys.Setting.ListFontName;                  GikoForm.ListView.Font.Name := GikoSys.Setting.ListFontName;
960                  GikoForm.ListView.Font.Size := GikoSys.Setting.ListFontSize;                  GikoForm.ListView.Font.Size := GikoSys.Setting.ListFontSize;
961                  GikoForm.ListView.Font.Color := GikoSys.Setting.ListFontColor;                  GikoForm.ListView.Font.Color := GikoSys.Setting.ListFontColor;
962                  GikoForm.ListView.Color := GikoSys.Setting.ListBackColor;                  //GikoForm.ListView.Color := GikoSys.Setting.ListBackColor;
963            GikoForm.ListViewBackGroundColor := GikoSys.Setting.ListBackColor;
964            GikoForm.UseOddResOddColor := GikoSys.Setting.UseOddColorOddResNum;
965            GikoForm.OddColor := GikoSys.Setting.OddColor;
966    
967                  GikoForm.BrowserTab.Font.Name := GikoSys.Setting.BrowserTabFontName;                  GikoForm.BrowserTab.Font.Name := GikoSys.Setting.BrowserTabFontName;
968                  GikoForm.BrowserTab.Font.Size := GikoSys.Setting.BrowserTabFontSize;                  GikoForm.BrowserTab.Font.Size := GikoSys.Setting.BrowserTabFontSize;
# Line 1391  begin Line 1406  begin
1406          BoardURLComboBox.DeleteSelected;          BoardURLComboBox.DeleteSelected;
1407  end;  end;
1408    
1409    procedure TOptionDialog.OddResNumCheckBoxClick(Sender: TObject);
1410    begin
1411            OddResNumColorBox.Enabled := OddResNumCheckBox.Checked;
1412    end;
1413    
1414  end.  end.
1415    

Legend:
Removed from v.1.22  
changed lines
  Added in v.1.23

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