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);

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

Thanks. Applied.

Mattias