浏览代码

Window list dialog windows size adjustment

Margers 9 月之前
父节点
当前提交
86f61918b4
共有 1 个文件被更改,包括 1 次插入1 次删除
  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));