Statusbar -> Panel[0] -> Schrift andersfarbig

[HolgerCW]

Hallo zusammen,

gibt es eine Möglichkeit die Panles einer Statusbar mit unterschiedlichen Schriftfarben zu definieren.

Gruss

Holger

[Sherlock]

Klar, das machst Du im OnDraw Ereignis des Panels. Musst es halt noch auf OwnerDraw=True setzen dann geht das wunderbar.

Delphi-Quellcode:

procedure TForm1.StatusBar1DrawPanel(StatusBar: TStatusBar;
  Panel: TStatusPanel; const Rect: TRect);
var
  Color: TColor;
  MyRect: TRect;
begin
  MyRect := Rect;
  case Panel.Index of
    3:
      begin
        Color := clred;
      end;
  else
    Color := clBlack;
  end;
  StatusBar1.Canvas.Font.Color := Color;
  StatusBar1.Canvas.Font.Style := [fsbold];
  DrawText(StatusBar1.Canvas.Handle, PChar(Panel.Text), -1, MyRect, DT_SINGLELINE
    or DT_VCENTER or DT_CENTER);
end;

Sherlock

[HolgerCW]

Vielen dank. Nur finde ich die Eigenschaft OwnerDraw bei meiner Statusbar nicht ?

Die müsste doch unter verscheidenes sein ?

Gruss

Holger

[Sherlock]

Weisste was?

Das mit dem OwnerDraw hab ich mir so ausgedacht^^ Sorry.

Ich denke, das geht auch einfach so.

Sherlock

[Die Muhkuh]

Hi,

Du musst den Bereichseditor öffnen (dort wo man die Panels hinzufügen kann). Dort gibt es eine Eigenschaft namens "Style". Diese musst Du auf psOwnerDraw umstellen.

Zitat von Sherlock:

Das mit dem OwnerDraw hab ich mir so ausgedacht^^ Sorry.

Ich denke, das geht auch einfach so.

Nein, geht nicht


Grüße

[HolgerCW]

Vielen dank. So klappt es nun.

Gruss

Holger

[Sherlock]

Ah, da wars versteckt...ich habs nicht mehr gefunden.

Danke

Sherlock