Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/KuroutSetting.pas

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

revision 1.4 by genyakun, Sun Sep 26 14:39:49 2004 UTC revision 1.5 by genyakun, Sun Oct 17 16:09:42 2004 UTC
# Line 50  type Line 50  type
50      GroupBox1: TGroupBox;      GroupBox1: TGroupBox;
51      GengoSupport: TCheckBox;      GengoSupport: TCheckBox;
52      Label5: TLabel;      Label5: TLabel;
53        GroupBox2: TGroupBox;
54        LocalTrapAtt: TCheckBox;
55        RemoteTrapAtt: TCheckBox;
56          procedure OkBottonClick(Sender: TObject);          procedure OkBottonClick(Sender: TObject);
57          procedure FormCreate(Sender: TObject);          procedure FormCreate(Sender: TObject);
58          procedure CDeleteButtonClick(Sender: TObject);          procedure CDeleteButtonClick(Sender: TObject);
# Line 103  begin Line 106  begin
106          SetColumnData();          SetColumnData();
107    
108          PageControl1.ActivePageIndex := GikoSys.Setting.KuroutSettingTabIndex;          PageControl1.ActivePageIndex := GikoSys.Setting.KuroutSettingTabIndex;
109    
110            //2chAnnai
111            GengoSupport.Checked := GikoSys.Setting.GengoSupport;
112            //FusianaSet
113            LocalTrapAtt.Checked := GikoSys.Setting.LocalTrapAtt;
114            RemoteTrapAtt.Checked := GikoSys.Setting.RemoteTrapAtt;
115  end;  end;
116    
117  procedure TKuroutOption.SaveSetting;  procedure TKuroutOption.SaveSetting;
# Line 120  begin Line 129  begin
129          else          else
130                  GikoSys.Setting.TimeAdjustSec := 0;                  GikoSys.Setting.TimeAdjustSec := 0;
131          GikoSys.Setting.TimeAdjust := PutPostTimeRadioButton.Checked;          GikoSys.Setting.TimeAdjust := PutPostTimeRadioButton.Checked;
132            //2ch言語サポート
133          GikoSys.Setting.GengoSupport := GengoSupport.Checked;          GikoSys.Setting.GengoSupport := GengoSupport.Checked;
134            //ローカル・リモートフシアナ警告
135            GikoSys.Setting.LocalTrapAtt := LocalTrapAtt.Checked;
136            GikoSys.Setting.RemoteTrapAtt := RemoteTrapAtt.Checked;
137    
138          GikoSys.Setting.KuroutSettingTabIndex := PageControl1.ActivePageIndex;          GikoSys.Setting.KuroutSettingTabIndex := PageControl1.ActivePageIndex;
139  end;  end;
# Line 152  procedure TKuroutOption.OkBottonClick(Se Line 164  procedure TKuroutOption.OkBottonClick(Se
164  begin  begin
165          RecvBufferSizeExit(Sender);          RecvBufferSizeExit(Sender);
166          PostTimeEditExit(Sender);          PostTimeEditExit(Sender);
167      PostColumnData();          PostColumnData();
168          SaveSetting;          SaveSetting;
169  end;  end;
170    

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

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