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

win32: trial to fix regression from r41513 #dbf54a7429. issue #23255 and probably #24549

Browse Source 
git-svn-id: trunk@41536 -
This commit is contained in:
zeljko 2013-06-04 09:32:34 +00:00
parent b9f92c2008
commit 39c54740fe
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -306,7 +306,7 @@ begin
{set spacing to LCL's default if bitbtn does not have glyph.issue #23255}
if not BitBtn.CanShowGlyph then
ASpacing := -1;
ASpacing := 0;
if BitBtn.CanShowGlyph then
begin
@ -315,7 +315,7 @@ begin
if BitBtn.NumGlyphs > 1 then
srcWidth := srcWidth div BitBtn.NumGlyphs;
if (srcWidth = 0) or (srcHeight = 0) then
ASpacing := -1;
ASpacing := 0;
end else
begin
srcWidth := 0;