Browse CVS Repository
Diff of /gikonavigoeson/gikonavi/Option.pas
Parent Directory
| Revision Log
| Revision Graph
| Patch
| 249 |
private |
private |
| 250 |
{ Private 宣言 } |
{ Private 宣言 } |
| 251 |
FClose: Boolean; |
FClose: Boolean; |
| 252 |
|
FRepaintList: Boolean; |
| 253 |
FRepaintThread: Boolean; |
FRepaintThread: Boolean; |
| 254 |
FCSSFont: TFont; |
FCSSFont: TFont; |
| 255 |
FCSSBackColor: TColor; |
FCSSBackColor: TColor; |
| 1038 |
|
|
| 1039 |
//スレッド一覧更新アイコン |
//スレッド一覧更新アイコン |
| 1040 |
GikoSys.Setting.ListIconVisible := ThreadListIconCheckBox.Checked; |
GikoSys.Setting.ListIconVisible := ThreadListIconCheckBox.Checked; |
| 1041 |
|
|
| 1042 |
|
//取得数、未取得数 |
| 1043 |
|
if (GikoSys.Setting.NonAcquiredCount <> NonAcquiredCountCheckBox.Checked) and (GikoForm.ActiveList Is TBoard) then |
| 1044 |
|
FRepaintList := true; |
| 1045 |
GikoSys.Setting.NonAcquiredCount := NonAcquiredCountCheckBox.Checked; |
GikoSys.Setting.NonAcquiredCount := NonAcquiredCountCheckBox.Checked; |
| 1046 |
GikoSys.Setting.CreationTimeLogs := CreationTimeLogsCheckBox.Checked; |
|
| 1047 |
|
GikoSys.Setting.CreationTimeLogs := CreationTimeLogsCheckBox.Checked; |
| 1048 |
GikoSys.Setting.FutureThread := FutureThreadCheckBox.Checked; |
GikoSys.Setting.FutureThread := FutureThreadCheckBox.Checked; |
| 1049 |
if StrToIntDef(SelectIntervalEdit.Text, 110) > 55 then |
if StrToIntDef(SelectIntervalEdit.Text, 110) > 55 then |
| 1050 |
GikoSys.Setting.SelectInterval := StrToIntDef(SelectIntervalEdit.Text, 110) |
GikoSys.Setting.SelectInterval := StrToIntDef(SelectIntervalEdit.Text, 110) |
| 1169 |
end; |
end; |
| 1170 |
GikoForm.AddressComboBox.TabStop := GikoSys.Setting.AddressBarTabStop; |
GikoForm.AddressComboBox.TabStop := GikoSys.Setting.AddressBarTabStop; |
| 1171 |
|
|
| 1172 |
|
//スレ一覧のリフレッシュ |
| 1173 |
|
if FRepaintList then begin |
| 1174 |
|
// SetActiveListを実行 |
| 1175 |
|
GikoForm.ActiveList := GikoForm.ActiveList; |
| 1176 |
|
end; |
| 1177 |
|
|
| 1178 |
// スレッドのリフレッシュ |
// スレッドのリフレッシュ |
| 1179 |
if FRepaintThread then begin |
if FRepaintThread then begin |
| 1180 |
for i := GikoForm.BrowserTab.Tabs.Count - 1 downto 0 do begin |
for i := GikoForm.BrowserTab.Tabs.Count - 1 downto 0 do begin |
|
|
Legend:
| Removed from v.1.53 |
|
| changed lines |
| |
Added in v.1.54 |
|
|
|