Thema: Delphi Schriftfarbe in Listbox

Einzelnen Beitrag anzeigen

paelesoft

Registriert seit: 3. Jul 2004
37 Beiträge
 
Delphi 7 Professional
 
#11

Re: Schriftfarbe in Listbox

  Alt 7. Nov 2004, 20:11
@Thornberry^^
1. Die Farbe soll aus der Registry kommen.
2. Rot auf rotem Grund???

------------------------------------------------------------------------------------

Natürlich muss ein Textout erfolgen. Also

Delphi-Quellcode:
procedure TForm1.Listbox1DrawItem(Control: TWinControl;
  Index: Integer; Rect: TRect; State: TOwnerDrawState);
// "regist" ist in TForm1.FormCreate initialisiert worden?!
var Farbe : TColor;
begin
  { ... wenn Hintergrundfarbe verändert werden soll, dann siehe ^^^ }
  Listbox1.Canvas.FillRect(Rect);
  Farbe:=regist.ReadInteger('Name_'+IntToStr(Index)+'_color');
  Listbox1.Font.Color:=Farbe;
  { ... eventuelle Formatierungen ... oder sonstige Manipulationen an Texten oder Stilen....}
  Listbox1.Canvas.TextOut(Rect.Left, Rect.Top, Listbox1.Items[Index]);
end;
Gruß Erik
  Mit Zitat antworten Zitat