FastReport PreviewForm MouseWheel (scrollen) geht nicht!

[Jens Hartmann]

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

[Jens Hartmann]

Sorry, aber Lösung schon selber gefunden. Manchmal kommt dann doch der Gedankengang...

Hier die Lösung...

in der Form wo die PreviewForm liegt...

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);
  if fPrintTemplates.frxPreview.Preview.Focused then
    fPrintTemplates.frxPreview.Preview.MouseWheelScroll(WheelDelta);
end;

Da auf der PreviewForm ein TfrxPreview liegt, muss natürlich mit frxPreview.Preview. auf die Funktion MouseWheelScroll(WheelDelta); zugegriffen werden.

Vorher noch den Focus richtig setzen...

Delphi-Quellcode:

    frxReport_Final.ShowPreparedReport;
    frxPreview.Preview.SetFocus;
  except

Gruß Jens