paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-23 08:49:38 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Make listbox in window list one column smaller.

Browse Source 
git-svn-id: trunk@3433 -
This commit is contained in:
daniel 2006-05-06 17:36:24 +00:00
parent 3aa3fdcf28
commit 9f249e2bb0
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/fpmwnd.inc
View File

@ -111,7 +111,7 @@ begin
HelpCtx:=hcWindowList;
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;
New(SB, Init(R2)); Insert(SB);
New(LB, Init(R, SB));