dann mach doch mal einen screenshoot und häng das mal dran ...
habs mal kurz ausprobiert, mit
lbOwnerDrawFixed gibt folgender code das ergebnis lt. anhang...
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
var
i: integer;
begin
for i := 0 to 10 do
ListBox1.AddItem('item: ' + inttostr(i), NIL);
end;
procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
begin
if control is tListbox then
begin
with control as tListbox do
begin
if Index mod 2 = 0 then //bei best. Zeile soll folgendes gelten
begin
Canvas.Brush.Color := clRed;
Canvas.Pen.Color := clWhite;
Canvas.Rectangle(Rect);
end;
Canvas.TextOut(Rect.Left + 1, Rect.Top + 1, Items[Index]);
end;
end;
und ich find das ganz in ordnung so ...
