Browse Source

Window list dialog windows size adjustment

Margers 7 months ago
parent
commit
86f61918b4
1 changed files with 1 additions and 1 deletions
  1. 1 1
      packages/ide/fpmwnd.inc

+ 1 - 1
packages/ide/fpmwnd.inc

@@ -107,7 +107,7 @@ constructor TWindowListDialog.Init;
 var R,R2: TRect;
 var R,R2: TRect;
     SB: PScrollBar;
     SB: PScrollBar;
 begin
 begin
-  R.Assign(0,0,round(ScreenWidth*5/8),15);
+  R.Assign(0,0,Max(60,round(ScreenWidth*5/8)),Max(13,round(ScreenHeight*3/5)));
   inherited Init(R, dialog_windowlist);
   inherited Init(R, dialog_windowlist);
   HelpCtx:=hcWindowList;
   HelpCtx:=hcWindowList;
   New(C, Init(20,10));
   New(C, Init(20,10));