TButtonGlyph

type TButtonGlyph = class(TObject, IUnknown, IImageCacheListener)

protected

  function QueryInterface();

  function _AddRef;

  function _Release;

  procedure CacheSetImageList();

  procedure CacheSetImageIndex();

  procedure GlyphChanged();

  procedure SetTransparentMode();

  property TransparentMode: TGlyphTransparencyMode; [r]

public

  constructor Create;

Create - constructor for TButtonGlyph: frees the Images cache then creates a Glyph Bitmap

  destructor Destroy; override;

Destroy - destructor for TButtonGlyph: frees caches and calls inherited Destroy

  procedure GetImageIndexAndEffect();

Find the index for the image and the effect to be used for drawing it

  function Draw();

Draw the image in the specified rectangle, within the client rectangle at specified offset, with the specified state and transparency

  procedure Refresh;

  property Glyph: TBitmap; [rw]

The small bitmap image to be drawn on the button

  property IsDesigning: Boolean; [rw]

  property NumGlyphs: TNumGlyphs; [rw]

The number of glyphs to be drawn

  property Images: TCustomImageList; [r]

The list of available images from which selection can be made

  property Width: Integer; [r]

The width of the glyph image

  property Height: Integer; [r]

The height of the glyph image

  property ShowMode: TGlyphShowMode; [rw]

  property OnChange: TNotifyEvent; [rw]

Event handler for a change in the glyph

end;

TButtonGlyph,IUnknown,IImageCacheListener

A small image that can be attached to buttons

TObject