Hey,
ich schreibe derzeit ein kleines Programm, welches Daten von einem Spiel übersichtlich in einem Listview darstellt. Dabei habe ich ein kleines Problem. Das Listview hat circa den Aufbau:
ID --- Name --- Preis
0 Test --- 125465
1 Test2--- 546943
Jetzt kommt das knifflige daran. Ich würde sehr gerne den Preis in einem anderen Format zeichnen und zwar so ( "I" ist Platzhalter für ein kleines Bild)
Preis
12 "I" 54 "I" 65 "I"
Also den Preis in hunderter aufteilen und ein kleines Icon hintendran zeichen. Hierbei ergeben sich 2 Probleme:
1. Ich habe nur die Y Koordinate des Subitems (Item.Top). Wie komme ich an die X Koordinate und am besten auch die Höhe und Breite des Subitems (damit man das ganze mittig ausrichten kann)
2. Ich habe testweise mal ein bisschen rumgemalt (ohne die Koordinaten zu kennen)
Delphi-Quellcode:
procedure TForm1.ListView1AdvancedCustomDrawSubItem(Sender: TCustomListView;
Item: TListItem; SubItem: Integer; State: TCustomDrawState;
Stage: TCustomDrawStage; var DefaultDraw: Boolean);
begin
if SubItem = 1 then
begin
with Sender.Canvas do
begin
DefaultDraw := false;
TextOut(4,Item.Top + 2, 'Test');
end;
end;
end;
Das hat auch wunderbar funktioniert, nur ist nun beim Highlighten (also darüberfahren und markieren) ein hässlicher weißer Rahmen um den Text. Kann man den auch transparent Zeichnen?
Vielen Dank für eure Hilfe!