diff --git a/Source/GUIBase/uEditorPreview.pas b/Source/GUIBase/uEditorPreview.pas index 98f31618..b169bb47 100644 --- a/Source/GUIBase/uEditorPreview.pas +++ b/Source/GUIBase/uEditorPreview.pas @@ -29,6 +29,8 @@ type procedure Print; procedure Preview; + procedure Refresh; + function GetController : IControllerBase; procedure SetController (const Value : IControllerBase); property Controller : IControllerBase read GetController @@ -165,6 +167,7 @@ type write SetController; property Title: string read GetTitle write SetTitle; property Report: TfrxReport read GetReport; + procedure Refresh; procedure Print; procedure Preview; procedure LoadFromStream(AStream : TStream); @@ -450,6 +453,11 @@ begin Enabled := True; end; +procedure TfEditorPreview.Refresh; +begin +// Report.Preview.Repaint; +end; + procedure TfEditorPreview.SetController(const Value: IControllerBase); begin FController := Value;