| 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; |
| 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); |
| 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; |
| 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 |
| 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 |
|
|
| 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 |
|
|