diff --git a/Source/GUIBase/uViewPreview.dfm b/Source/GUIBase/uViewPreview.dfm index 52e3be36..2bc9d8f7 100644 --- a/Source/GUIBase/uViewPreview.dfm +++ b/Source/GUIBase/uViewPreview.dfm @@ -6,5 +6,7 @@ inherited frViewPreview: TfrViewPreview Height = 214 Align = alClient OutlineVisible = False + OutlineWidth = 121 + ThumbnailVisible = False end end diff --git a/Source/GUIBase/uViewPreview.pas b/Source/GUIBase/uViewPreview.pas index c16f3764..de4f478c 100644 --- a/Source/GUIBase/uViewPreview.pas +++ b/Source/GUIBase/uViewPreview.pas @@ -18,6 +18,7 @@ type private function GetPreview: TfrxPreview; public + procedure Refresh; override; property Preview : TfrxPreview read GetPreview; end; @@ -32,6 +33,12 @@ begin Result := frxPreview; end; +procedure TfrViewPreview.Refresh; +begin + inherited; + frxPreview.RefreshReport; +end; + initialization RegisterClass(TfrViewPreview);