StatusBar FontColor ?

[newuser01]

Wenn ich bei meiner StatusBar die Schriftfarbe ändere, wird diese aber nicht angezeigt

Delphi-Quellcode:

StatusBar1.Font.Color := clRed;
StatusBar1.Panels.Items[1].Text := 'Schrift wird nicht in clRed angezeigt';

[Bernhard Geyer]

Hast du XP-Theming für deine Anwendung aktiviert?

[newuser01]

was ist XP-Theming ?

[Matze]

Das dürfte damit nichts zu tun haben. Eine mögliche Lösung wäre diese hier:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  // Auch im OI einstellbar
  StatusBar1.Panels[0].Style := psOwnerDraw;
  StatusBar1.Panels[0].Width := 250;
end;

procedure TForm1.StatusBar1DrawPanel(StatusBar: TStatusBar; Panel: TStatusPanel;
  const Rect: TRect);
var
  PanelRect: TRect;
begin
  if Panel = StatusBar1.Panels[0] then
  begin
   StatusBar.Canvas.FillRect(Rect);
   StatusBar1.Font.Color := clRed;

   StatusBar1.Canvas.TextRect(Rect, Rect.Left + 1, Rect.Top, 'Schrift wird in clRed angezeigt');
  end;
end;

[himitsu]

Zitat von newuser01:

was ist XP-Theming ?

Das ist, wenn deine Anwendung im XP-Style angezeigt wird (z.B. XPMan eingebunden).
Und da wird halt die Systemeinstellung verwendet, es sei denn du zeichnest selber.

[newuser01]

hm kann doch nicht sein ich muss doch font.color ändern können wann immer ich will

[Bernhard Geyer]

Zitat von newuser01:

hm kann doch nicht sein ich muss doch font.color ändern können wann immer ich will

Erstens wird das Font-Property von manchen Controls eh ignoriert (da das entsprechende Windows-Control diese Möglichkeit nicht vorsieht) und zweitens werden durch XP-Theming viele Farbeinstellung eh komplett von den Windows-Controls ignoriert.

[newuser01]

ok thx für eure Hilfe