ok das hab ich nun steh ich vor dem problem hab hier im Forum verschieden Themen zu hintergrundfarben ändern per CustomDrawSubItem gefunden. Nun möchte ich aber ein bild aus einer Imagelist wie soll ich das machen?
Delphi-Quellcode:
procedure TForm1.ListView1CustomDrawSubItem(Sender: TCustomListView;
Item: TListItem; SubItem: Integer; State: TCustomDrawState;
var DefaultDraw: Boolean);
var R: TRect;
Text: String;
begin
if (Item.Index = 1) and (SubItem = 1) then
begin
//get subitems rect
ListView1CustomDrawSubItem(Sender.Handle, Item.Index, SubItem, cdsDefault , @R);
Sender.Canvas.Brush. :=
Sender.Canvas.FillRect(R);
DefaultDraw := False;
end
end;