mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-09-24 16:59:12 +02:00
added third buttonglyph from Tom Lisjac
git-svn-id: trunk@4371 -
This commit is contained in:
parent
04c90479b5
commit
fc194c6045
@ -91,6 +91,7 @@ begin
|
||||
case State of
|
||||
bsDisabled: if NumGlyphs>1 then ImgID:=1;
|
||||
bsDown: if NumGlyphs>2 then ImgID:=2;
|
||||
bsExclusive: if NumGlyphs>3 then ImgID:=3;
|
||||
end;
|
||||
|
||||
Result := Rect((ImgID*gWidth), 0, ((ImgID+1)*gWidth), gHeight);
|
||||
|
Loading…
Reference in New Issue
Block a user