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.48 by yoffy, Mon Aug 2 15:11:56 2004 UTC revision 1.49 by yoffy, Wed Aug 4 03:36:53 2004 UTC
# Line 160  type Line 160  type
160                  CSSBackColorButton: TButton;                  CSSBackColorButton: TButton;
161                  ShowNGLineCheckBox: TCheckBox;                  ShowNGLineCheckBox: TCheckBox;
162                  AddResAnchorCheckBox: TCheckBox;                  AddResAnchorCheckBox: TCheckBox;
163                  OnlyAHundredResCheckBox: TCheckBox;      ResRangeHoldCheckBox: TCheckBox;
164                  BoardURLComboBox: TComboBox;                  BoardURLComboBox: TComboBox;
165                  AddURLButton: TButton;                  AddURLButton: TButton;
166                  RemoveURLButton: TButton;                  RemoveURLButton: TButton;
# Line 191  type Line 191  type
191      Label6: TLabel;      Label6: TLabel;
192      TabAutoSaveLoad: TGroupBox;      TabAutoSaveLoad: TGroupBox;
193      CloseTabAutoSave: TCheckBox;      CloseTabAutoSave: TCheckBox;
194      OpenTabAutoLoad: TCheckBox;                  OpenTabAutoLoad: TCheckBox;
195                    ResRangeHoldComboBox: TComboBox;
196                  procedure FormCreate(Sender: TObject);                  procedure FormCreate(Sender: TObject);
197                  procedure FormDestroy(Sender: TObject);                  procedure FormDestroy(Sender: TObject);
198                  procedure ApplyButtonClick(Sender: TObject);                  procedure ApplyButtonClick(Sender: TObject);
# Line 242  type Line 243  type
243                  procedure AddURLButtonClick(Sender: TObject);                  procedure AddURLButtonClick(Sender: TObject);
244                  procedure RemoveURLButtonClick(Sender: TObject);                  procedure RemoveURLButtonClick(Sender: TObject);
245      procedure OddResNumCheckBoxClick(Sender: TObject);      procedure OddResNumCheckBoxClick(Sender: TObject);
246        procedure ResRangeHoldCheckBoxClick(Sender: TObject);
247          private          private
248                  { Private 宣言 }                  { Private 宣言 }
249                  FClose: Boolean;                  FClose: Boolean;
# Line 690  begin Line 692  begin
692          if (CSSListView.ItemIndex = -1) and (CSSListView.Items.Count > 0) then          if (CSSListView.ItemIndex = -1) and (CSSListView.Items.Count > 0) then
693                  CSSListView.Items[0].Selected := True;                  CSSListView.Items[0].Selected := True;
694    
695          //Mail欄表示          // 起動時レス表示範囲の固定
696          OnlyAHundredResCheckBox.Checked := (GikoSys.Setting.ResRange = 100);          ResRangeHoldCheckBox.Checked := GikoSys.Setting.ResRangeHold;
697            case GikoSys.Setting.ResRange of
698            Ord( grrAll ):  ResRangeHoldComboBox.ItemIndex := 0;
699            Ord( grrKoko ): ResRangeHoldComboBox.ItemIndex := 2;
700            Ord( grrNew ):  ResRangeHoldComboBox.ItemIndex := 3;
701            100:                                            ResRangeHoldComboBox.ItemIndex := 1;
702            end;
703            ResRangeHoldComboBox.Enabled := GikoSys.Setting.ResRangeHold;
704          //タブ追加位置          //タブ追加位置
705          TabAddRadioGroup.ItemIndex := Ord(GikoSys.Setting.BrowserTabAppend);          TabAddRadioGroup.ItemIndex := Ord(GikoSys.Setting.BrowserTabAppend);
706          //板更新URL          //板更新URL
# Line 925  begin Line 934  begin
934          //Mail欄表示          //Mail欄表示
935          if GikoSys.Setting.ShowMail <> ShowMailCheckBox.Checked then FRepaintThread := true;          if GikoSys.Setting.ShowMail <> ShowMailCheckBox.Checked then FRepaintThread := true;
936          GikoSys.Setting.ShowMail := ShowMailCheckBox.Checked;          GikoSys.Setting.ShowMail := ShowMailCheckBox.Checked;
937          //最新100レス表示          // 起動時レス表示範囲の固定
938          if OnlyAHundredResCheckBox.Checked then          GikoSys.Setting.ResRangeHold := ResRangeHoldCheckBox.Checked;
939                  GikoSYs.Setting.ResRange := 100;          case ResRangeHoldComboBox.ItemIndex of
940            0: GikoSys.Setting.ResRange := Ord( grrAll );
941            1: GikoSys.Setting.ResRange := 100;
942            2: GikoSys.Setting.ResRange := Ord( grrKoko );
943            3: GikoSys.Setting.ResRange := Ord( grrNew );
944            end;
945    
946          GikoSys.Setting.BrowserTabAppend := TGikoTabAppend(TabAddRadioGroup.ItemIndex);          GikoSys.Setting.BrowserTabAppend := TGikoTabAppend(TabAddRadioGroup.ItemIndex);
947    
# Line 1519  begin Line 1533  begin
1533          OddResNumColorBox.Enabled := OddResNumCheckBox.Checked;          OddResNumColorBox.Enabled := OddResNumCheckBox.Checked;
1534  end;  end;
1535    
1536    procedure TOptionDialog.ResRangeHoldCheckBoxClick(Sender: TObject);
1537    begin
1538            ResRangeHoldComboBox.Enabled := ResRangeHoldCheckBox.Checked;
1539    end;
1540    
1541  end.  end.
1542    

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

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