AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Sprachen und Entwicklungsumgebungen Object-Pascal / Delphi-Language Delphi Statusbar -> Panel[0] -> Schrift andersfarbig

Statusbar -> Panel[0] -> Schrift andersfarbig

Ein Thema von HolgerCW · begonnen am 15. Mai 2008 · letzter Beitrag vom 15. Mai 2008
Antwort Antwort
HolgerCW

Registriert seit: 28. Nov 2006
Ort: Marl
1.207 Beiträge
 
Delphi XE7 Enterprise
 
#1

Statusbar -> Panel[0] -> Schrift andersfarbig

  Alt 15. Mai 2008, 10:24
Hallo zusammen,

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

Gruss

Holger
  Mit Zitat antworten Zitat
Benutzerbild von Sherlock
Sherlock

Registriert seit: 10. Jan 2006
Ort: Offenbach
3.798 Beiträge
 
Delphi 12 Athens
 
#2

Re: Statusbar -> Panel[0] -> Schrift andersfarbig

  Alt 15. Mai 2008, 10:48
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
Oliver
  Mit Zitat antworten Zitat
HolgerCW

Registriert seit: 28. Nov 2006
Ort: Marl
1.207 Beiträge
 
Delphi XE7 Enterprise
 
#3

Re: Statusbar -> Panel[0] -> Schrift andersfarbig

  Alt 15. Mai 2008, 11:10
Vielen dank. Nur finde ich die Eigenschaft OwnerDraw bei meiner Statusbar nicht ?

Die müsste doch unter verscheidenes sein ?

Gruss

Holger
  Mit Zitat antworten Zitat
Benutzerbild von Sherlock
Sherlock

Registriert seit: 10. Jan 2006
Ort: Offenbach
3.798 Beiträge
 
Delphi 12 Athens
 
#4

Re: Statusbar -> Panel[0] -> Schrift andersfarbig

  Alt 15. Mai 2008, 11:15
Weisste was?

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

Ich denke, das geht auch einfach so.

Sherlock
Oliver
  Mit Zitat antworten Zitat
Benutzerbild von Die Muhkuh
Die Muhkuh

Registriert seit: 21. Aug 2003
7.332 Beiträge
 
Delphi 2009 Professional
 
#5

Re: Statusbar -> Panel[0] -> Schrift andersfarbig

  Alt 15. Mai 2008, 11:16
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
  Mit Zitat antworten Zitat
HolgerCW

Registriert seit: 28. Nov 2006
Ort: Marl
1.207 Beiträge
 
Delphi XE7 Enterprise
 
#6

Re: Statusbar -> Panel[0] -> Schrift andersfarbig

  Alt 15. Mai 2008, 11:26
Vielen dank. So klappt es nun.

Gruss

Holger
  Mit Zitat antworten Zitat
Benutzerbild von Sherlock
Sherlock

Registriert seit: 10. Jan 2006
Ort: Offenbach
3.798 Beiträge
 
Delphi 12 Athens
 
#7

Re: Statusbar -> Panel[0] -> Schrift andersfarbig

  Alt 15. Mai 2008, 11:27
Ah, da wars versteckt...ich habs nicht mehr gefunden.

Danke

Sherlock
Oliver
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 12:32 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz