چگونه ميتوان رنگ فونت در statusbar تغيير داد

[amehrabi]

چگونه می توان رنگ فونت تکست در statusbar را تغییر داد .
با استفاده از خاصیت statusbar.font.color تغییری نمی کند.

[vcldeveloper]

با استفاده از خصوصیت Panels یه Panel درست کن و Style اون رو OwnerDraw بزار. در خصوصیت OnPanelDraw اون StatusBar اینجوری بنویس:


procedure TForm1.StatusBar1DrawPanel(StatusBar: TStatusBar;
Panel: TStatusPanel; const Rect: TRect);
begin
with StatusBar do
begin
case Panel.ID of
0 : begin //Panels[0]
Canvas.Pen.Color := clRed;
Canvas.TextOut(Rect.Left + 4, Rect.Top + 2,'A Test');
end;
1 : begin end; //Panels[1]
end;
end;
end;

[amehrabi]

از راهنمایی شما ممنونم ولی با این کد هم مشکل حل نشد .

[m-khorsandi]

درود

از Property های UseSystemFont, StatusBar رو False کنید و روی StatusBar دوبار کلیک کنید و در پنجره باز شده یک Panel بسازید و از Property های مربوط به Style, Panel رو برابر با psOwnerDraw قرار بدید.

Trick های آقای کشاورز حرف نداره.