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)

zusammenfalten · markieren

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!

markieren

Delphi-Quellcode:

Rect := Item.DisplayRect(drBounds);
Rect.Left := Rect.Left + Sender.Column[0].Width;
if (SubItem <> TListView(Sender).Columns.Count - 1) then
begin
  Rect.Right := Rect.Left + Sender.Column[SubItem - 1].Width;
end;

Das sollte funktionieren, um dir das Rect zu besorgen.

Hallo,

ersteinmal vielen Dank für den Ansatz. Damit kann ich arbeiten. Ich werde nachher nocheinmal für alle einen Code posten, der auch bei mehreren Collumns funktioniert, deiner berücksichtigt ja nur die Breite von Collumn 0 .

Trotzdem habe ich immernoch das Problem mit der Transparenz von Texten..