Hallo,
Ich habe schon einen Beitrag dazu gelesen.
Dort werden auf die commands
COMPDF_GETMOUSE_X
COMPDF_GETMOUSE_Y
verwiesen.
Nur wird das Image nicht an der Position eingefügt.
Code
procedure TfrmMain.WPViewPDF1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
Var
i: Integer;
begin
i := WPViewPDF1.Plus.AddImage('barcode.jpg');
if i > 0 then
WPViewPDF1.Plus.UseImage(i,
WPViewPDF1.command(COMPDF_GetPageUnderMouse),
WPViewPDF1.Command(COMPDF_GetPageLogX),
WPViewPDF1.Command(COMPDF_GetPageLogY),
72, 24, 0, []);
end;
Alles anzeigen
Bei COMPDF_GETMOUSE_XY ist die Position zu weit links oben,
bei COMPDF_GetPageLogXY zu weit rechts unten.
Muss man noch was rechnen?
Danke, Frank