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.8 by h677, Mon Dec 12 14:12:56 2005 UTC revision 1.9 by h677, Mon May 29 14:54:52 2006 UTC
# Line 56  type Line 56  type
56      Label6: TLabel;      Label6: TLabel;
57      ReadTimeOut: TEdit;      ReadTimeOut: TEdit;
58      Label7: TLabel;      Label7: TLabel;
59        KakikomiTabSheet: TTabSheet;
60        CookieGroupBox: TGroupBox;
61        Label8: TLabel;
62        FixedCookieEdit: TEdit;
63        Label9: TLabel;
64          procedure OkBottonClick(Sender: TObject);          procedure OkBottonClick(Sender: TObject);
65          procedure FormCreate(Sender: TObject);          procedure FormCreate(Sender: TObject);
66          procedure CDeleteButtonClick(Sender: TObject);          procedure CDeleteButtonClick(Sender: TObject);
# Line 116  begin Line 121  begin
121          //FusianaSet          //FusianaSet
122          LocalTrapAtt.Checked := GikoSys.Setting.LocalTrapAtt;          LocalTrapAtt.Checked := GikoSys.Setting.LocalTrapAtt;
123          RemoteTrapAtt.Checked := GikoSys.Setting.RemoteTrapAtt;          RemoteTrapAtt.Checked := GikoSys.Setting.RemoteTrapAtt;
124            // Cookie
125        FixedCookieEdit.Text := GikoSys.Setting.FixedCookie;
126  end;  end;
127    
128  procedure TKuroutOption.SaveSetting;  procedure TKuroutOption.SaveSetting;
# Line 134  begin Line 141  begin
141          else          else
142                  GikoSys.Setting.TimeAdjustSec := 0;                  GikoSys.Setting.TimeAdjustSec := 0;
143          GikoSys.Setting.TimeAdjust := PutPostTimeRadioButton.Checked;          GikoSys.Setting.TimeAdjust := PutPostTimeRadioButton.Checked;
144                  //2ch言語サポート          //2ch言語サポート
145                  GikoSys.Setting.GengoSupport := GengoSupport.Checked;          GikoSys.Setting.GengoSupport := GengoSupport.Checked;
146          GikoSys.SetGikoMessage;          GikoSys.SetGikoMessage;
147                  //ローカル・リモートフシアナ警告          //ローカル・リモートフシアナ警告
148                  GikoSys.Setting.LocalTrapAtt := LocalTrapAtt.Checked;          GikoSys.Setting.LocalTrapAtt := LocalTrapAtt.Checked;
149                  GikoSys.Setting.RemoteTrapAtt := RemoteTrapAtt.Checked;          GikoSys.Setting.RemoteTrapAtt := RemoteTrapAtt.Checked;
150            // Cookie
151            GikoSys.Setting.FixedCookie := FixedCookieEdit.Text;
152    
153    
154          GikoSys.Setting.KuroutSettingTabIndex := PageControl1.ActivePageIndex;          GikoSys.Setting.KuroutSettingTabIndex := PageControl1.ActivePageIndex;
155  end;  end;

Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9

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