Explorar o código

* Make listbox in window list one column smaller.

git-svn-id: trunk@3433 -
daniel %!s(int64=19) %!d(string=hai) anos
pai
achega
9f249e2bb0
Modificáronse 1 ficheiros con 1 adicións e 1 borrados
  1. 1 1
      ide/fpmwnd.inc

+ 1 - 1
ide/fpmwnd.inc

@@ -111,7 +111,7 @@ begin
   HelpCtx:=hcWindowList;
   HelpCtx:=hcWindowList;
   New(C, Init(20,10));
   New(C, Init(20,10));
 
 
-  GetExtent(R); R.Grow(-2,-2); Inc(R.A.Y); R.B.X:=R.B.X-13;
+  GetExtent(R); R.Grow(-2,-2); Inc(R.A.Y); R.B.X:=R.B.X-14;
   R2.Copy(R); R2.Move(1,0); R2.A.X:=R2.B.X-1;
   R2.Copy(R); R2.Move(1,0); R2.A.X:=R2.B.X-1;
   New(SB, Init(R2)); Insert(SB);
   New(SB, Init(R2)); Insert(SB);
   New(LB, Init(R, SB));
   New(LB, Init(R, SB));