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

[etom291272]

noch ne kleine verbesserung. Bei viewstyle vsicon gabs ein problem wenn sehr viel text in den captions war (mehr als 20 Zeichen) mit folgender Codeänderung funktioniert auch dass

Delphi-Quellcode:

if TListView(Sender).ViewStyle=vsIcon then
    begin
      with Sender do
      begin
        Canvas.Pen.Color := $008FC2B3;
        Canvas.Brush.Color := $00CDEFE9;
        Canvas.Rectangle(aTextRect);

        Windows.DrawText(Canvas.Handle, @Item.Caption[1], Length(Item.Caption),
                         aTextRect, DT_EDITCONTROL+DT_CENTER+DT_WORDBREAK); //Hier war vorher nur DT_CENTER+DT_WORDBREAK

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

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