Rechteck auf Canvas verschieben - altes Rechteck bleibt da

[turboPASCAL]

Zitat von moelski:

..RTF-Label von den wpTools. ..

Hm, das habe ich dann wohl übersehen.

Zitat von moelski:

...Du wolltest jetzt wenn ich das richtig sehe auf das Canvas des Labels den Rahmen zeichnen. Das geht aber nicht, denn das Label hat kein Canvas.

Das wird auch irgend wo einen Canvas haben. Man könnte das dann auch do lösen. z.B.: (WPRichTextLabel1 as TGraficControl).Canvas.Rectangle(..)

Zitat von moelski:

Also man könnte das ganze prinzipiell auch ohne das RTF Label sehen. Es geht dann nur darum, einen Rahmen zu zeichnen und wenn ich mit der Maus drüber bin, diesen zu verschieben (mit gedrückter Maustaste).

Die Idee halte ich für nicht besonders gut direkt auf der Grafik einen Rahmen für's Label zu zeichnen.

Zitat von moelski:

...Aber ich habe immerhin schonmal die Streifen weg. Aber der Rahmen ist so nicht sichtbar beim Verschieben ...

Wenn Diene Grafik Position (Oben, Links) auf der Form nicht 0, 0 ist musst du das beachten:

Delphi-Quellcode:

  ...
  // Position merken
  lastX1 := WPRichTextLabel1.Left - 1 - Grafik1.Left;
  lastY1 := WPRichTextLabel1.Top - 1 - Grafik1.Left;
  lastX2 := WPRichTextLabel1.Left + WPRichTextLabel1.width + 1 - Grafik1.Left;
  lastY2 := WPRichTextLabel1.Top + WPRichTextLabel1.Height + 1 - Grafic1.Top;
  ...

  ...
  Grafik1.Canvas.Rectangle(
    WPRichTextLabel1.Left - 1 - Grafik1.Left,
    WPRichTextLabel1.Top - 1 - Grafic1.Top,
    WPRichTextLabel1.Left + WPRichTextLabel1.width + 1 - Grafik1.Left,
    WPRichTextLabel1.Top + WPRichTextLabel1.Height + 1 - Grafic1.Top);

mfG.