Auf den canvas einer TListView zeichnen?

[softtouch]

Die listview soll einfach normal wie immer aussehen, und soll einfach nur eine Linie von 0,0 - 400,400 haben (das ist natürlich nur zum Testen).
ich kann auch kein transparentes Panel drüber legen und in dem zeichnen, dann kann ich die items nicht mehr selektieren.

[jaenicke]

Dafür wäre die TVirtualTreeView bestens geeignet. Die einfache TListView verwendet ich so gut wie gar nicht mehr...

[Uwe Raabe]

Zitat von softtouch:

Die listview soll einfach normal wie immer aussehen, und soll einfach nur eine Linie von 0,0 - 400,400 haben

In deinem Screenshot geht die Linie ja auch von 0,0 - 400,400. Oben links wird sie halt vom Column-Header übermalt. Willst du denn auch in den Headerbereich malen?

[softtouch]

Nein, eigentlich will ich dioe Linie rechts am Ende der letzten Spalte zeihcne, und zwar von item x nach item y.

So ungefähr wie im Bild.

[Uwe Raabe]

Etwa so?

Der Code dazu im OnAdvancedCustomDraw:

Delphi-Quellcode:

  if Stage = TCustomDrawStage.cdPostPaint then
  begin
    var R1 := Sender.Items[2].DisplayRect(drBounds);
    var R2 := Sender.Items[8].DisplayRect(drBounds);
    var P1 := TPoint.Create(R1.Right, R1.CenterPoint.Y);
    var P2 := TPoint.Create(R2.Right, R2.CenterPoint.Y);
    P2.X := ARect.Right - 10;
    P1.X := P2.X - 10;
    Sender.Canvas.Pen.Color := clRed;
    Sender.Canvas.Pen.Width := 2;
    Sender.Canvas.MoveTo(P1.X, P1.Y);
    Sender.Canvas.LineTo(P2.X, P1.Y);
    Sender.Canvas.LineTo(P2.X, P2.Y);
    Sender.Canvas.LineTo(P1.X, P2.Y);
  end;

[softtouch]

Kommt leider keine Linie bei mir.
cdPostPaint kommt bei mir nicht, immer nur cdPrePaint.

Edit: Jetzt gehts. Die 2 anderen customdraw events waren weg.

[softtouch]

Nochmals danke an Uwe Raabe, der Code funktioniert, musste nur noch einen refresh im resize event machen, sonst schmiert die Linie.
Im Bild nun das Ergebnis.

[himitsu]

Joar, einige Komponenten zeichnen nur den neuen Teil, beim Vergrößern, was bei z.B. rechts ausgerichteten Dingen im CustomDraw zu Problemen führt, da womöglich Reste zurückbleiben, wenn sich der Zelleninhalt verschiebt.