#382 ensure windows visible

lazpaint/uchoosecolor.pas

@@ -54,6 +54,7 @@ begin
   FInterface := TChooseColorInterface.Create(ChooseColorControl, TFChooseColor_CustomDPI);
   BorderStyle := ToolWindowSizeable;
   FormStyle := ToolWindowStyle;
+  Position := poDesigned;
 end;
 
 procedure TFChooseColor.FormDeactivate(Sender: TObject);
@@ -70,7 +71,6 @@ end;
 
 procedure TFChooseColor.FormShow(Sender: TObject);
 begin
-  Position := poDesigned;
   self.EnsureVisible(False);
 end;
 

lazpaint/uimagelist.pas

@@ -423,6 +423,7 @@ end;
 
 procedure TFImageList.FormShow(Sender: TObject);
 begin
+  EnsureVisible(False);
   tbAutoUncheck.Down:= LazPaintInstance.Config.ImageListAutoUncheck;
   tbAutoZoomFit.Down:= LazPaintInstance.Config.ImageListAutoZoom;
   pmAutouncheckOnSave.Checked:=LazPaintInstance.Config.ImageListAutoUncheckMode=0;

lazpaint/ulayerstack.pas

@@ -93,6 +93,7 @@ end;
 
 procedure TFLayerStack.FormShow(Sender: TObject);
 begin
+  EnsureVisible(False);
   CreateStackInterface;
 end;
 

lazpaint/utoolbox.pas

@@ -45,7 +45,6 @@ uses math, UDarkTheme;
 
 procedure TFToolbox.FormShow(Sender: TObject);
 begin
-  Position := poDesigned;
   self.EnsureVisible(False);
 end;
 
@@ -124,6 +123,7 @@ procedure TFToolbox.FormCreate(Sender: TObject);
 begin
   BorderStyle := ToolWindowFixedSize;
   FormStyle := ToolWindowStyle;
+  Position := poDesigned;
 end;
 
 {$R *.lfm}