Hallo,
ich möchte ein, mit InsertMovableImage eingefügtes Bild im Mousemove des WPRichText verschieben.
Irgendwie bekomme ich die Koordinaten dafür nicht hin, z.B. :
Das Dokument hat 3 Seiten, ich sehe momentan Seite 2 die Seitenmitte...
imgobj ist das aktivierte TWPTextObj
Code
procedure TForm1.WPRichText1MouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
begin
if imgobj <> nil then
begin
X := MulDiv(X, 1440, Screen.PixelsPerInch);
Y := MulDiv(Y, 1440, Screen.PixelsPerInch);
imgobj.RelX := X;
imgobj.RelY := Y;
end;
end;
Alles anzeigen
Das funktioniert, solange die erste Seite ganz oben angezeigt wird, ich vermute die Scrollposition muss ebenfalls noch eingerechnet werden, aber hier fehlt mir der richtige Ansatz...
Ciao
Stefan