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

win32: spin edit: fix placement for bsNone

Browse Source 
git-svn-id: trunk@51975 -
This commit is contained in:
ondrej 2016-03-17 10:55:10 +00:00
parent 33013ddac8
commit 0c8bbd0f25
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/interfaces/win32/win32wsspin.pp
View File

@ -278,7 +278,9 @@ begin
}
GetWindowRect(UpDown, @R);
UpDownWidth := R.Right - R.Left;
if (WindowsVersion >= wvXP) and ThemeServices.ThemesEnabled then
if (AWinControl as TCustomFloatSpinEdit).BorderStyle = bsNone then
BorderWidth := 0
else if (WindowsVersion >= wvXP) and ThemeServices.ThemesEnabled then
BorderWidth := GetSystemMetrics(SM_CXBORDER)
else
BorderWidth := GetSystemMetrics(SM_CXEDGE);