delphi的StatusBar状态控件调整字体大小颜色

 

最近在做一个小项目，是用delphi7 开发的，delphi刚学不久，也是自学的，应客户要求，状态栏的字体要变大一点，我在属性里面已经把字体调大了，但是F9运行以后还是不行，现在将方法贴出，以供参考。

 

1.找到 Statusbars.Panels   的属性编辑器 （点击Stat控件，在Object Inspector窗口的Panels属性，右边有个按钮），进去之后，将每个Panel的Style属性设置为psOwnerDraw，每个都要设置。

 

2. 将 ParentColor和ParentFont属性设置为 True。

 

3.在该控件的 OnDrawPanel事件里面添加如下代码：

procedure TMainFrm.stat1DrawPanel(StatusBar: TStatusBar;
  Panel: TStatusPanel; const Rect: TRect);
begin
   //  Panel.Style:=psOwnerDraw;     //   此行可以去掉
  //         StatusBar.Canvas.Brush.Color:=clGreen;
  //         StatusBar.Canvas.Font.Color:=clBlack;
  //     假如如您地标题   --   红底黑字   那就为非就为应该改成   --
          StatusBar.Canvas.Brush.Color:=clRed;  //底色
          StatusBar.Canvas.Font.Color:=clBlack;     //字体颜色
          StatusBar.Canvas.FillRect(Rect);  
  //   显示文字大小:  
          StatusBar.Canvas.TextRect(Rect,   Rect.Left,   Rect.Top,   Panel.Text);
          StatusBar.Canvas.Font.size:=30;
end;

 

4.最后保存，F9 运行，即可！