Moin (frohe Ostern)
Kannst Du mir nochmal unter die Arme greifen ?
Unter Delphi 2005 läuft das nicht.
Im Objekt Inspektor gibt es keinen ListBox1.Style := lbOwnerDrawFixed;
lediglich ein 'DrawMode'
Die Ereignis-Procedur hat andere Parameter:
TWinFormMain.ListBox1_DrawItem(sender: System.Object; e: System.Windows.Forms.DrawItemEventArgs);
Delphi-Quellcode:
procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
begin
with Control as TListBox do
begin
Canvas.FillRect(Rect);
Canvas.Font.Color := TColor(Items.Objects[Index]);
Canvas.TextOut(Rect.Left + 2, Rect.Top, Items[Index]);
end;
end;
[edit=Sharky]Delphi-Tags gesetzt. Mfg, Sharky[/edit]