Canvas in DragOver fehlerhaft

[Tryer]

Normalerweise zeichnet man in Paint oder OnDrawItem. Das Problem ist vermutlich das der Clipping-Bereich nicht richtig gesetzt ist, also der Bereich des Fensters der zum Neuzeichen freigegeben ist.
Per SelectClipRgn(Canvas.Handle, 0) sollte sich die Einschränkung vor dem Zeichnen aufheben lassen.

Sauberer wäre es OnDrawItem zu verwenden und in DragOver nur die Position der Linie zu bestimmen und das Neuzeichnen per Invalidate o.ä. anzustossen.

Grüsse, Dirk