Question

怎么样使用delphi 中的statusbar控件改变文字颜色 即如何将“文字”这两个字变为黄色

在下边原有程序基础上更改：
object StatusBar1: TStatusBar
Left = 0
Top = 504
Width = 548
Height = 29
Panels = <
item
Text = ' 文字 '
Width = 50
end>
end
这是用ResScope破解的exe的一段程序，有些东西我不知道怎么看

Answer 1

放一个imagelist1控件。

procedure TForm1.FormCreate(Sender: TObject);

var

 i:integer;

begin

  for i:=0 to Statusbar1.Panels.Count -1 do

  StatusBar1.Panels[i].Style := psOwnerDraw;

end;

procedure TForm1.StatusBar1DrawPanel(StatusBar: TStatusBar;

  Panel: TStatusPanel; const Rect: TRect);

begin

  with  StatusBar.Canvas do

  begin

     Font.Color :=clred;   //文字为红色

 //  font.Style :=[fsBold];//是否加粗

   FillRect(Rect) ;

     TextRect(Rect, 2 + ImageList1.Width + Rect.Left, 2 + Rect.Top, Panel.Text);

  end;

end;

Answer 2

首先：
确定Panels 的 Sytle 是否为:psOwnerDraw
其次：
在statusbar控件单击 ondrawpanel事件
写如下代码
StatusBar.Canvas.Font.Color:=clGreen; 改成自己所要的颜色
StatusBar.Canvas.TextRect(Rect, Rect.Left, Rect.Top, Panel.Text);