Hi zusammen
In meinem Projekt benutze ich einen Frame, um Pdf-Dokumente anzuzeigen - das funktioniert erstmal
sehr gut. Dann gehts weiter: per Rechteck markiere ich einen Bereich und kopiere den enthaltenen Text - vorerst nur in eine Listbox:
Delphi-Quellcode:
procedure TAlexPdfFrame.FOnMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var Text: WString; LdfView : TPdfView;
begin
LdfView := (Sender as TPdfView);
Pdf1.PageNumber := LdfView.PageNumber;
// Pdf1.OnPageChange
Text := LdfView.TextInRectangle(FMouseMarked.X,FMouseMarked.Y,X,Y);
LdfView.Canvas.Rectangle(FMouseMarked.X,FMouseMarked.Y,X,Y);
RzPCtrlPdfText.ActivePage := RzTbsMemo;
MemoPdfText.Lines.Add(Text);
if Assigned(FOnSelectedPdfTextEvent) then
FOnSelectedPdfTextEvent(Sender,Text);
end;
Das Problem dabei ist: Ich habe diversen PDFs einen Stempel (Bitmap) mit einem Fremdprogramm verpasst. Mein Programm zeigt mir diese Pdfs aber nach wie vor ohne diesen Stempel an, obwohl verschiedene Fremdprogramme mir diese anstandslos anzeigen - und nicht nur diese Fremdprogramme, sondern auch eine Demo des Herstellers der benutzten Pdf-Komponenten zeigt die Stempel in den entsprechenden Pdfs an.
Ich hab nun versucht, die Codestelle zu finden, an der die anzuzeigende Bitmap so behandelt wird, dass sie auch angezeigt wird, Noch bin ich da nicht ganz durch, denke aber, fündig geworden zu sein und hab diesen zweizeiler eingebaut:
Delphi-Quellcode:
procedure TAlexPdfFrame.FPDFViewOnPageChange(Sender: TObject);
var Text: WString; LdfView : TPdfView;
begin
LdfView := (Sender as TPdfView);
LdfView.Invalidate;
end;
Die selbe Prozedur hab ich auch in die Frameinstanz eingebaut:
Delphi-Quellcode:
procedure TOfficerAlexMain.AlexPdfFrame1PdfView_1PageChange(Sender: TObject);
var PdfView_1 : TPdfView;
begin
PdfView_1 := (Sender as TPdfView);
PdfView_1.Invalidate;
end;
Die Prozedur wird bei erstellen des PdfViews an eine eigene Routine zugewiesen, so dass diese ausgeführt werden sollte.
Ich ging davon aus, dass OnPageChange auch beim erstmaligen Anzeigen aufgerufen wird. Nur geschieht da leider gar nichts. Haltepunkte bleiben unbeachtet, und mein Programm zeigt mir nach wie vor die ungestempelten Pdfs.
Was mache ich falsch?
Gruss
Delbor