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.9 by h677, Mon May 29 14:54:52 2006 UTC revision 1.10 by h677, Sun Aug 6 03:17:02 2006 UTC
# Line 61  type Line 61  type
61      Label8: TLabel;      Label8: TLabel;
62      FixedCookieEdit: TEdit;      FixedCookieEdit: TEdit;
63      Label9: TLabel;      Label9: TLabel;
64        GroupBox3: TGroupBox;
65        Label10: TLabel;
66        MoveHistoryMaxEdit: TEdit;
67        Label11: TLabel;
68          procedure OkBottonClick(Sender: TObject);          procedure OkBottonClick(Sender: TObject);
69          procedure FormCreate(Sender: TObject);          procedure FormCreate(Sender: TObject);
70          procedure CDeleteButtonClick(Sender: TObject);          procedure CDeleteButtonClick(Sender: TObject);
# Line 123  begin Line 127  begin
127          RemoteTrapAtt.Checked := GikoSys.Setting.RemoteTrapAtt;          RemoteTrapAtt.Checked := GikoSys.Setting.RemoteTrapAtt;
128          // Cookie          // Cookie
129      FixedCookieEdit.Text := GikoSys.Setting.FixedCookie;      FixedCookieEdit.Text := GikoSys.Setting.FixedCookie;
130        // リンク移動履歴
131        MoveHistoryMaxEdit.Text := IntToStr( GikoSys.Setting.MoveHistorySize );
132  end;  end;
133    
134  procedure TKuroutOption.SaveSetting;  procedure TKuroutOption.SaveSetting;
# Line 150  begin Line 156  begin
156          // Cookie          // Cookie
157          GikoSys.Setting.FixedCookie := FixedCookieEdit.Text;          GikoSys.Setting.FixedCookie := FixedCookieEdit.Text;
158    
159        // リンク移動履歴
160        GikoSys.Setting.MoveHistorySize :=
161            StrToIntDef( MoveHistoryMaxEdit.Text, 20 );
162    
163          GikoSys.Setting.KuroutSettingTabIndex := PageControl1.ActivePageIndex;          GikoSys.Setting.KuroutSettingTabIndex := PageControl1.ActivePageIndex;
164  end;  end;

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

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