Hallo zusammen,
um die fertige Toolbar von FastReport im Preview nutzen zu können, habe ich mich der Funktion aus dem folgenden Link bedient...
https://www.fast-report.com/en/forum...php/t9373.html
Das ganze funktioniert auch eigentlich super. Bis auf, dass ich in dieser Vorschau nicht scrollen kann.
Hier mal meine Zuweisung:
Delphi-Quellcode:
procedure TfPrintTemplates.frxReport_FinalPreview(Sender: TObject);
begin
frxReport_Final.PreviewOptions.Modal := False;
frxPreview := TfrxPreviewForm(frxReport_Final.PreviewForm);
frxPreview.BorderStyle := bsNone;
frxPreview.Parent:=pnlPreview;
frxPreview.Left:=0;
frxPreview.Top:=0;
frxPreview.Width:=pnlPreview.ClientWidth;
frxPreview.Height:=pnlPreview.ClientHeight;
pnlPreview.SetFocus;
end;
wie man sieht, ist der Parent ein Panel. Das Problem mit dem scrollen hatte ich schon mal im Zusammenhang mit der Preview Komponente. Hier musste man im OnMouseWheel der Form auf welcher das Preview lag, die Steuerung selber implementieren. Gelöst wie folgt:
Delphi-Quellcode:
procedure TfReportClient.FormMouseWheel(Sender: TObject; Shift: TShiftState;
WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
begin
if frmReportVorschau1.frxPreview1.Focused then
frmReportVorschau1.frxPreview1.MouseWheelScroll(WheelDelta);
end;
Das ganze kann ich aber mit der
Delphi-Quellcode:
var
frxPreview: TfrxPreviewForm;
nicht lösen.
Hat jemand eine Idee, wie ich beim Anzeigen des Previews und wenn die Mouse über diesem steht, dass scrollen aktivieren kann?
Danke schon mal und Gruß Jens