diff --git a/components/fpreport/design/frmfpreportdesignermain.lfm b/components/fpreport/design/frmfpreportdesignermain.lfm
index 58e55fa80c..9a742308b4 100644
--- a/components/fpreport/design/frmfpreportdesignermain.lfm
+++ b/components/fpreport/design/frmfpreportdesignermain.lfm
@@ -325,8 +325,6 @@ object FPReportDesignerForm: TFPReportDesignerForm
     inherited PCData: TPageControl
       Height = 655
       Width = 261
-      ActivePage = FReportData.TSData
-      TabIndex = 0
       inherited TSData: TTabSheet
         ClientHeight = 620
         ClientWidth = 255
diff --git a/components/fpreport/design/frmfpreportdesignermain.pp b/components/fpreport/design/frmfpreportdesignermain.pp
index 758a41cec4..0dbb6ed03c 100644
--- a/components/fpreport/design/frmfpreportdesignermain.pp
+++ b/components/fpreport/design/frmfpreportdesignermain.pp
@@ -481,13 +481,7 @@ end;
 
 procedure TFPReportDesignerForm.FormShow(Sender: TObject);
 begin
-  if Assigned(Report) then
-    begin
-    MaybeAddFirstPage;
-    DesignReport;
-    end;
-  SBReport.Visible:=False;
-  SBReport.Visible:=True;
+  SBReport.Refresh;
 end;
 
 procedure TFPReportDesignerForm.DesignReport;
@@ -496,6 +490,7 @@ Var
   I : Integer;
 
 begin
+  MaybeAddFirstPage;
   Report.StartDesigning;
   For I:=0 to Report.PageCount-1 do
     AddPageDesign(I+1,Report.Pages[I]);