Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/GikoDataModule.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.22 by h677, Mon Dec 12 14:52:57 2005 UTC revision 1.23 by h677, Thu Dec 15 16:12:55 2005 UTC
# Line 394  type Line 394  type
394          procedure AllSelectActionUpdate(Sender: TObject);          procedure AllSelectActionUpdate(Sender: TObject);
395    private    private
396          { Private 宣言 }          { Private 宣言 }
         procedure RepaintStatusBar;  
397          procedure ClearResFilter;          procedure ClearResFilter;
398          procedure SetResRange(range: Integer);          procedure SetResRange(range: Integer);
399          procedure SetThreadAreaHorNormal;          procedure SetThreadAreaHorNormal;
# Line 405  type Line 404  type
404          procedure SelectThreadSaveToFile(dat: Boolean);          procedure SelectThreadSaveToFile(dat: Boolean);
405    public    public
406          { Public 宣言 }          { Public 宣言 }
407            procedure RepaintStatusBar;
408    published    published
409          { Published 宣言 }          { Published 宣言 }
410          //! TActionでGetActiveContentがnil以外で有効になる          //! TActionでGetActiveContentがnil以外で有効になる
# Line 516  var Line 516  var
516  begin  begin
517          //ステータスに表示されるNGワードファイル名を更新          //ステータスに表示されるNGワードファイル名を更新
518          s := GikoSys.FAbon.NGwordname;          s := GikoSys.FAbon.NGwordname;
519          GikoForm.StatusBar.Panels.Items[2].Text := s;          GikoForm.StatusBar.Panels.Items[GiKo.NGWORDNAME_PANEL].Text := s;
520          //ステータスの表示サイズのリサイズ          //ステータスの表示サイズのリサイズ
521          GikoForm.StatusBar.Panels[2].Width := Max(GikoForm.StatusBar.Canvas.TextWidth(s), 100);          GikoForm.StatusBar.Panels[GiKo.NGWORDNAME_PANEL].Width
522                    := Max(GikoForm.StatusBar.Canvas.TextWidth(s), 100);
523          GikoForm.StatusBarResize(nil);          GikoForm.StatusBarResize(nil);
524  end;  end;
525  // *************************************************************************  // *************************************************************************

Legend:
Removed from v.1.22  
changed lines
  Added in v.1.23

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