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.81 by h677, Tue Dec 6 14:09:23 2005 UTC revision 1.82 by h677, Tue Dec 20 15:20:11 2005 UTC
# Line 202  type Line 202  type
202      UnFocusedBoldCheckBox: TCheckBox;      UnFocusedBoldCheckBox: TCheckBox;
203      IgnoreKanaCheckBox: TCheckBox;      IgnoreKanaCheckBox: TCheckBox;
204      UseKatjuTypeSkinCheckBox: TCheckBox;      UseKatjuTypeSkinCheckBox: TCheckBox;
205        GroupBox20: TGroupBox;
206        AutoSortCheckBox: TCheckBox;
207        Label24: TLabel;
208                  procedure FormCreate(Sender: TObject);                  procedure FormCreate(Sender: TObject);
209                  procedure FormDestroy(Sender: TObject);                  procedure FormDestroy(Sender: TObject);
210                  procedure ApplyButtonClick(Sender: TObject);                  procedure ApplyButtonClick(Sender: TObject);
# Line 353  begin Line 356  begin
356                  FClose := False;                  FClose := False;
357                  Exit;                  Exit;
358          end;          end;
359          SetAbonpropertys;                  SetAbonpropertys;
360          SaveSetting;          SaveSetting;
361          SettingApply;          SettingApply;
362    
# Line 821  begin Line 824  begin
824          else          else
825                  DatOchiSortCombo.ItemIndex := 0;                  DatOchiSortCombo.ItemIndex := 0;
826          end;          end;
827            AutoSortCheckBox.Checked := GikoSys.Setting.AutoSortThreadList;
828            
829          //あぼ〜ん          //あぼ〜ん
830          RloCheckBox.Checked := GikoSys.Setting.AbonDeleterlo;          RloCheckBox.Checked := GikoSys.Setting.AbonDeleterlo;
831          ReplaceulCheckBox.Checked := GikoSys.Setting.AbonReplaceul;          ReplaceulCheckBox.Checked := GikoSys.Setting.AbonReplaceul;
# Line 1098  begin Line 1102  begin
1102                          GikoSys.Setting.DatOchiSortIndex := Ord( gbcLastModified );{gbcLastModified}                          GikoSys.Setting.DatOchiSortIndex := Ord( gbcLastModified );{gbcLastModified}
1103                          end;                          end;
1104          end;          end;
1105            GikoSys.Setting.AutoSortThreadList := AutoSortCheckBox.Checked;
1106    
1107          GikoSys.Setting.WriteSystemSettingFile;          GikoSys.Setting.WriteSystemSettingFile;
1108          GikoSys.Setting.WriteBoardURLSettingFile;          GikoSys.Setting.WriteBoardURLSettingFile;

Legend:
Removed from v.1.81  
changed lines
  Added in v.1.82

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