paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-07 22:58:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: designer: fixed show border spacing, patch #30876, from Michl

Browse Source 
git-svn-id: trunk@53320 -
This commit is contained in:
mattias 2016-11-08 15:56:08 +00:00
parent f8c567425b
commit 144135bfcc
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
designer/designer.pp
View File

@ -3213,8 +3213,8 @@ begin
aDDC.Canvas.FrameRect(
CurControl.Left-CurControl.BorderSpacing.GetSideSpace(akLeft),
CurControl.Top-CurControl.BorderSpacing.GetSideSpace(akTop),
CurControl.Left+CurControl.Width+CurControl.BorderSpacing.GetSideSpace(akRight)-1,
CurControl.Top+CurControl.Height+CurControl.BorderSpacing.GetSideSpace(akBottom)-1
CurControl.Left+CurControl.Width+CurControl.BorderSpacing.GetSideSpace(akRight),
CurControl.Top+CurControl.Height+CurControl.BorderSpacing.GetSideSpace(akBottom)
);
end;
end;