LCL: TCalculatorForm, TCustomDockForm, TSynBaseCompletionForm, ShowInputDialog: combine creation

git-svn-id: trunk@24422 -

components/synedit/syncompletion.pas

@@ -385,6 +385,9 @@ uses
 constructor TSynBaseCompletionForm.Create(AOwner: TComponent);
 begin
   FResizeLock := 1; // prevent DoResize (on Handle Creation) do reset LinesInWindow
+  {$IFNDEF OldAutoSize}
+  BeginFormUpdate;
+  {$ENDIF}
   {$IFDEF SYN_LAZARUS}
   inherited Create(AOwner);
   {$ELSE}
@@ -431,6 +434,9 @@ begin
   {$ELSE}
   ShowHint := False;
   {$ENDIF}
+  {$IFNDEF OldAutoSize}
+  EndFormUpdate;
+  {$ENDIF}
   FResizeLock := 0;
 end;
 

lcl/extdlgs.pas

@@ -1094,15 +1094,19 @@ end;
 constructor TCalculatorForm.Create(AOwner: TComponent);
 
 begin
+  BeginFormUpdate;
   inherited CreateNew(AOwner, 0);
   InitForm(clNormal);
+  EndFormUpdate;
 end;
 
 constructor TCalculatorForm.CreateLayout(AOwner: TComponent;ALayout : TCalculatorLayout);
 
 begin
+  BeginFormUpdate;
   inherited CreateNew(AOwner, 0);
   InitForm(ALayout);
+  EndFormUpdate;
 end;
 
 

lcl/include/customdockform.inc

@@ -53,11 +53,13 @@ end;
 
 constructor TCustomDockForm.Create(TheOwner: TComponent);
 begin
+  BeginFormUpdate;
   CreateNew(TheOwner,0);
   AutoScroll := False;
   BorderStyle := bsSizeToolWin;
   DockSite := True;
   FormStyle := fsStayOnTop;
+  EndFormUpdate;
 end;
 
 // included by forms.pp

lcl/include/inputdialog.inc

@@ -36,7 +36,9 @@ var
   AMonitor: TMonitor;
 begin
   Result := False;
-  Form := TForm.CreateNew(nil, 0);
+  Form := TForm(TForm.NewInstance);
+  Form.DisableAutoSizing;
+  Form.CreateNew(nil, 0);
   with Form do
   begin
     BorderStyle := bsDialog;
@@ -89,6 +91,7 @@ begin
 
     // upon show, the edit control will be focused for editing, because it's
     // the first in the tab order
+    Form.EnableAutoSizing;
     if ShowModal = mrOk then
     begin
       Value := Edit.Text;