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.53 by q9_, Mon Aug 9 14:50:02 2004 UTC revision 1.54 by q9_, Mon Aug 9 16:05:26 2004 UTC
# Line 249  type Line 249  type
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;
# Line 1037  begin Line 1038  begin
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)
# Line 1163  begin Line 1169  begin
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

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