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.