Hallo Blackheart...
hab ja auch nicht wirklich eine Ahnung. Danke
Habe versucht aber auch so funkt. es nicht.
Delphi-Quellcode:
procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
begin
with (Control as TListBox) do
begin
if Odd(Index) then
begin
if odSelected in State then begin
// if (odFocused in State) and (odSelected in State) then
Canvas.Brush.Color := $00D4B569; //Canvas-Hintergrundfarbe a
Canvas.DrawFocusRect (Rect)
end
else
Canvas.Font.Color := $00817161;
end
else
begin
if odSelected in State then begin
Canvas.Brush.Color := $00D4B569; //Canvas-Hintergrundfarbe
Canvas.DrawFocusRect (Rect)
end
else
Canvas.Brush.Color := clwhite; //Canvas-Hintergrundfarbe
Canvas.DrawFocusRect (Rect);
end;
Canvas.FillRect(Rect); //schön ausmalen
Canvas.TextOut(Rect.Left + 2, Rect.Top + 1, Items[Index]); //Text drüberpinseln
end;
end;
gruss vom capo