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.47 by genyakun, Sat Jul 31 02:06:50 2004 UTC revision 1.48 by yoffy, Mon Aug 2 15:11:56 2004 UTC
# Line 691  begin Line 691  begin
691                  CSSListView.Items[0].Selected := True;                  CSSListView.Items[0].Selected := True;
692    
693          //Mail欄表示          //Mail欄表示
694          ShowMailCheckBox.Checked := GikoSys.Setting.ShowMail;          OnlyAHundredResCheckBox.Checked := (GikoSys.Setting.ResRange = 100);
                 OnlyAHundredResCheckBox.Checked := GikoSYs.Setting.OnlyAHundredRes;  
695          //タブ追加位置          //タブ追加位置
696          TabAddRadioGroup.ItemIndex := Ord(GikoSys.Setting.BrowserTabAppend);          TabAddRadioGroup.ItemIndex := Ord(GikoSys.Setting.BrowserTabAppend);
697          //板更新URL          //板更新URL
# Line 927  begin Line 926  begin
926          if GikoSys.Setting.ShowMail <> ShowMailCheckBox.Checked then FRepaintThread := true;          if GikoSys.Setting.ShowMail <> ShowMailCheckBox.Checked then FRepaintThread := true;
927          GikoSys.Setting.ShowMail := ShowMailCheckBox.Checked;          GikoSys.Setting.ShowMail := ShowMailCheckBox.Checked;
928          //最新100レス表示          //最新100レス表示
929          GikoSYs.Setting.OnlyAHundredRes := OnlyAHundredResCheckBox.Checked;          if OnlyAHundredResCheckBox.Checked then
930                    GikoSYs.Setting.ResRange := 100;
931    
932          GikoSys.Setting.BrowserTabAppend := TGikoTabAppend(TabAddRadioGroup.ItemIndex);          GikoSys.Setting.BrowserTabAppend := TGikoTabAppend(TabAddRadioGroup.ItemIndex);
933    

Legend:
Removed from v.1.47  
changed lines
  Added in v.1.48

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