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

LCL: speedbutton: fix glyph painting for NumGlyphs > 1. Issue #33820, patch by C Western

Browse Source 
git-svn-id: trunk@58124 -
This commit is contained in:
ondrej 2018-06-04 15:07:49 +00:00
parent 5834be34f2
commit 7d10edbadb
1 changed files with 0 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/include/speedbutton.inc
View File

@ -595,8 +595,6 @@ begin
// compute size of glyph
GlyphSize := GetGlyphSize(Draw,PaintRect);
GlyphWidth := GlyphSize.CX;
if TButtonGlyph(FGlyph).NumGlyphs > 1 then
GlyphWidth:=GlyphWidth div NumGlyphs;
GlyphHeight := GlyphSize.CY;
HasGlyph:=(GlyphWidth<>0) and (GlyphHeight<>0);
//debugln(['TCustomSpeedButton.MeasureDraw Step2 ',DbgSName(Self),' PaintRect=',dbgs(PaintRect),' GlyphSize=',GlyphWidth,'x',GlyphHeight]);