Hallo Team Wpdf,
ich benutze WPViewPDF(+) in der aktuellen Version mit Delphi 7.
Könnte jemand ein Beispiel Code für Drag&Drop der Komponente geben.
Danke für Hilfe
Matthias Schlegel
Hallo Team Wpdf,
ich benutze WPViewPDF(+) in der aktuellen Version mit Delphi 7.
Könnte jemand ein Beispiel Code für Drag&Drop der Komponente geben.
Danke für Hilfe
Matthias Schlegel
Ich habe nur einen einfachen test:
WPViewPDF1.OnDragOver := FieldScrollDragOver;
WPViewPDF1.OnDragDrop := FieldScrollDragDrop;
procedure TForm1.FieldScrollDragDrop(Sender, Source: TObject; X, Y: Integer);
begin
if Source=Button1 then
ShowMessage('Drop!');
end;
procedure TForm1.FieldScrollDragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
begin
Accept := true;
end;
Jetzt ist natürlich die Frage was beim "Drop" passieren soll.
Wenn man was mit Seiten koordinaten machen muss, ist dieser code hilfreich
var pp, px, py : Integer; // Page Coordinates
begin
pp := WPViewPDF1.Command(COMPDF_GetPageUnderMouse);
if pp<0 then
XYPos.Caption := '- - -' else
begin
px := WPViewPDF1.Command(COMPDF_GetPageLogX);
py := WPViewPDF1.Command(COMPDF_GetPageLogY);
XYPos.Caption := Format('%d: x=%d y=%d', [pp+1, pX, pY]);
end;
end;
Hallo Team WPDF,
danke für die Antwort. Ein Beispiel wo die PDF aus der Komponente nach Outlook gezogen wird, wäre interessant.
Danke für Hilfe
M.Schlegel.
Hallo,
Das geht leider nicht. Man braucht hier vermutlich OLE drag und drop.
Mit den Delphi Event alleine geht das nicht.
Viele Grüße,
Julian