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

markieren

Delphi-Quellcode:

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

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

was ist XP-Theming ?

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

zusammenfalten · markieren

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;

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.

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

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.

ok thx für eure Hilfe