[lazarus] TSpeedbutton glyph states...]

Tom Lisjac netdxr at adelphia.net
Sun Jul 6 04:03:59 EDT 2003


Sorry... I diff'ed instead of patched. Update attached.

-Tom



Index: lazarus/lcl/include/buttonglyph.inc
===================================================================
RCS file: /FPC/CVS/projects/lazarus/lcl/include/buttonglyph.inc,v
retrieving revision 1.18
diff -u -w -r1.18 buttonglyph.inc
--- lazarus/lcl/include/buttonglyph.inc	10 Oct 2002 20:34:33 -0000	1.18
+++ lazarus/lcl/include/buttonglyph.inc	6 Jul 2003 08:27:50 -0000
@@ -91,6 +91,7 @@
   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);





More information about the Lazarus mailing list