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.11 by h677, Sun Aug 27 16:30:02 2006 UTC revision 1.12 by h677, Tue Feb 13 15:58:59 2007 UTC
# Line 68  type Line 68  type
68      AHandredGroupBox: TGroupBox;      AHandredGroupBox: TGroupBox;
69      AHandredLabeledEdit: TLabeledEdit;      AHandredLabeledEdit: TLabeledEdit;
70      UpDown1: TUpDown;      UpDown1: TUpDown;
71        HTMLGroupBox: TGroupBox;
72        AddKeywordCheckBox: TCheckBox;
73          procedure OkBottonClick(Sender: TObject);          procedure OkBottonClick(Sender: TObject);
74          procedure FormCreate(Sender: TObject);          procedure FormCreate(Sender: TObject);
75          procedure CDeleteButtonClick(Sender: TObject);          procedure CDeleteButtonClick(Sender: TObject);
# Line 136  begin Line 138  begin
138      MoveHistoryMaxEdit.Text := IntToStr( GikoSys.Setting.MoveHistorySize );      MoveHistoryMaxEdit.Text := IntToStr( GikoSys.Setting.MoveHistorySize );
139      // 先頭表示レス数      // 先頭表示レス数
140      AHandredLabeledEdit.Text := IntToStr( GikoSys.Setting.HeadResCount );      AHandredLabeledEdit.Text := IntToStr( GikoSys.Setting.HeadResCount );
141        // 関連キーワード追加フラグ
142        AddKeywordCheckBox.Checked := GikoSys.Setting.AddKeywordLink;
143  end;  end;
144    
145  procedure TKuroutOption.SaveSetting;  procedure TKuroutOption.SaveSetting;
# Line 172  begin Line 176  begin
176          StrToIntDef( AHandredLabeledEdit.Text , 1);          StrToIntDef( AHandredLabeledEdit.Text , 1);
177    
178          GikoSys.Setting.KuroutSettingTabIndex := PageControl1.ActivePageIndex;          GikoSys.Setting.KuroutSettingTabIndex := PageControl1.ActivePageIndex;
179        // 関連キーワード追加フラグ
180        GikoSys.Setting.AddKeywordLink := AddKeywordCheckBox.Checked;
181    
182  end;  end;
183    
184  procedure TKuroutOption.RecvBufferSizeExit(Sender: TObject);  procedure TKuroutOption.RecvBufferSizeExit(Sender: TObject);

Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12

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