![]() |
Statusbar -> Panel[0] -> Schrift andersfarbig
Hallo zusammen,
gibt es eine Möglichkeit die Panles einer Statusbar mit unterschiedlichen Schriftfarben zu definieren. Gruss Holger |
Re: Statusbar -> Panel[0] -> Schrift andersfarbig
Klar, das machst Du im OnDraw Ereignis des Panels. Musst es halt noch auf OwnerDraw=True setzen dann geht das wunderbar.
Delphi-Quellcode:
Sherlock
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; |
Re: Statusbar -> Panel[0] -> Schrift andersfarbig
Vielen dank. Nur finde ich die Eigenschaft OwnerDraw bei meiner Statusbar nicht ?
Die müsste doch unter verscheidenes sein ? Gruss Holger |
Re: Statusbar -> Panel[0] -> Schrift andersfarbig
Weisste was?
Das mit dem OwnerDraw hab ich mir so ausgedacht^^ Sorry. Ich denke, das geht auch einfach so. Sherlock |
Re: Statusbar -> Panel[0] -> Schrift andersfarbig
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:
Grüße |
Re: Statusbar -> Panel[0] -> Schrift andersfarbig
Vielen dank. So klappt es nun.
Gruss Holger |
Re: Statusbar -> Panel[0] -> Schrift andersfarbig
Ah, da wars versteckt...ich habs nicht mehr gefunden.
Danke Sherlock |
Alle Zeitangaben in WEZ +1. Es ist jetzt 12:40 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz