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.40 by yoffy, Thu Jun 10 18:07:03 2004 UTC revision 1.41 by h677, Sat Jun 19 13:37:23 2004 UTC
# Line 183  type Line 183  type
183      GroupBox5: TGroupBox;      GroupBox5: TGroupBox;
184      BrowserMaxLabel: TLabel;      BrowserMaxLabel: TLabel;
185      BrowserMaxCombo: TComboBox;      BrowserMaxCombo: TComboBox;
186        GroupBox17: TGroupBox;
187        SelectIntervalLabel: TLabel;
188        SelectIntervalEdit: TEdit;
189        Label4: TLabel;
190        Label6: TLabel;
191                  procedure FormCreate(Sender: TObject);                  procedure FormCreate(Sender: TObject);
192                  procedure FormDestroy(Sender: TObject);                  procedure FormDestroy(Sender: TObject);
193                  procedure ApplyButtonClick(Sender: TObject);                  procedure ApplyButtonClick(Sender: TObject);
# Line 769  begin Line 774  begin
774          ThreadListIconCheckBox.Checked := GikoSys.Setting.ListIconVisible;          ThreadListIconCheckBox.Checked := GikoSys.Setting.ListIconVisible;
775          CreationTimeLogsCheckBox.Checked := GikoSys.Setting.CreationTimeLogs;          CreationTimeLogsCheckBox.Checked := GikoSys.Setting.CreationTimeLogs;
776          FutureThreadCheckBox.Checked := GikoSys.Setting.FutureThread;          FutureThreadCheckBox.Checked := GikoSys.Setting.FutureThread;
777            SelectIntervalEdit.Text := IntToStr(GikoSys.Setting.SelectInterval);
778            
779          //スレッド一覧でLogのあるスレッドのみスレ作成日を表示するか          //スレッド一覧でLogのあるスレッドのみスレ作成日を表示するか
780          //ExistLogCheckBox.Checked :=          //ExistLogCheckBox.Checked :=
781    
# Line 981  begin Line 987  begin
987          //スレッド一覧更新アイコン          //スレッド一覧更新アイコン
988          GikoSys.Setting.ListIconVisible := ThreadListIconCheckBox.Checked;          GikoSys.Setting.ListIconVisible := ThreadListIconCheckBox.Checked;
989      GikoSys.Setting.CreationTimeLogs := CreationTimeLogsCheckBox.Checked;      GikoSys.Setting.CreationTimeLogs := CreationTimeLogsCheckBox.Checked;
990      GikoSys.Setting.FutureThread := FutureThreadCheckBox.Checked;          GikoSys.Setting.FutureThread := FutureThreadCheckBox.Checked;
991            if StrToIntDef(SelectIntervalEdit.Text, 110) > 55 then
992                    GikoSys.Setting.SelectInterval := StrToIntDef(SelectIntervalEdit.Text, 110)
993            else
994                    GikoSys.Setting.SelectInterval := 55;
995                    
996          //書き込み時マシン時間使用設定          //書き込み時マシン時間使用設定
997          GikoSys.Setting.UseMachineTime := PostTimeCheckBox.Checked;          GikoSys.Setting.UseMachineTime := PostTimeCheckBox.Checked;
998          if GikoSys.IsNumeric(PostTimeEdit.Text) then          if GikoSys.IsNumeric(PostTimeEdit.Text) then

Legend:
Removed from v.1.40  
changed lines
  Added in v.1.41

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