hallo zusammen
Da ich nirgends eine Listviewkomponente gefunden habe bei der man das Erscheinungsbild der fokusierten Items (wird ja von Windows gesteuert clHighlight bzw grau wenn kein focus) einstellen kann habe ich mal selbst handangelegt.
Da ich schon einige fragen zu diesem thema im forum gefunden habe aber wie gesagt keine antwort fand möchte ich euch meine Lösung nicht vorenthalten.
Funktionen: (Siehe Anlagen)
Andere Icons für markierte Items
Die Markierung wird in einer gewünschten Farbe gezeichnet (auch wenn item fokusiert)
um die Markierung wird ein Rand in einer anderen Farbe gezeichnet.
Der Code müsste für jede TListview bei Viewstyle vsicon und vsreport funktionieren
Delphi-Quellcode:
//------------------------------------------------------------------------------
procedure TFmDesigner.lvGruppenCustomDrawItem(Sender: TCustomListView;
Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
var
aIconRect, aTextRect:TRect;
begin
if (Item.Index=TListView(Sender).ItemIndex) or (TListView(Sender).ItemFocused=Item) or (Item.selected) then
begin
DefaultDraw:=False;
aIconRect:=Item.DisplayRect(drBounds);
aTextRect:=Item.DisplayRect(drLabel);
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_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;
if TListView(Sender).ViewStyle<>vsIcon then
begin
with Sender do
begin
Canvas.Pen.Color := $00CDEFE9;
Canvas.Brush.Color := $00CDEFE9;
Canvas.Rectangle(aTextRect);
aTextRect.Left:=aTextRect.Left+2;
Windows.DrawText(Canvas.Handle, @Item.Caption[1], Length(Item.Caption),
aTextRect, DT_VCENTER);
Canvas.Brush.Color:=$008FC2B3;
Canvas.FrameRect(aTextRect);
TListView(Sender).SmallImages.Draw(Canvas,aIconRect.Left+2
,aIconRect.Top,1);
end;
end;
end //Aktives Item
end;
//------------------------------------------------------------------------------
da ich mich bis jetzt sehr wenig mit komponentenentwicklung beschäftigt habe würde es mich freuen wenn mir jemand helfen würde diese funktionen in eine eigene Tlistviewkl Klasse einzubauen.
Ich möchte im Objektinspektor folgendes einstellen können (Farbe Markierung, Farbe Rand, Imageindex für
Mark Items gross(Aus LargeImages) und klein (SmallImages)