Lösung TListview eigene Farbe andere Icons für Aktive Items

[etom291272]

wieso funktioniert doch (Anlage)

Delphi-Quellcode:

if TListView(Sender).ViewStyle=vsIcon then
      begin
        Windows.DrawText(Canvas.Handle, @Item.Caption[1], Length(Item.Caption),
                         aTextRect, DT_EDITCONTROL+DT_CENTER+DT_WORDBREAK);

        Canvas.Brush.Color:=$008FC2B3;
        //Canvas.FrameRect(aTextRect);

        Canvas.Pen.Color := clred;
        canvas.MoveTo(atextrect.Left, atextrect.top);
        canvas.LineTo(atextrect.right, atextrect.top);

        TListView(Sender).LargeImages.Draw(Canvas,aIconRect.Left+((aIconRect.Right-aIconRect.Left) div 2)-TListView(Sender).LargeImages.Width div 2
                         ,aIconRect.Top+2, aIconIndex);