TButtonGlyph

type TButtonGlyph = class(TObject,IUnknown,IImageCacheListener)

public

  function QueryInterface();

  function _AddRef;

  function _Release;

  procedure CacheSetImageList();

  procedure CacheSetImageIndex();

protected

  function CanShow;

  function CanShowGlyph;

  procedure DoChange; virtual;

  procedure GlyphChanged();

  procedure SetTransparentMode();

  property TransparentMode: TGlyphTransparencyMode; [r]

public

  constructor Create;

  destructor Destroy; override;

  procedure GetImageIndexAndEffect();

  function Draw();

  procedure Refresh;

  property Glyph: TBitmap; [rw]

  property IsDesigning: Boolean; [rw]

  property NumGlyphs: TNumGlyphs; [rw]

  property Images: TCustomImageList; [r]

  property LCLGlyphName: string; [rw]

  property ExternalImages: TCustomImageList; [rw]

  property ExternalImageWidth: Integer; [rw]

  property ExternalImageIndex: Integer; [rw]

  property ExternalHotImageIndex: Integer; [rw]

  property ExternalDisabledImageIndex: Integer; [rw]

  property ExternalPressedImageIndex: Integer; [rw]

  property ExternalSelectedImageIndex: Integer; [rw]

  property Width: Integer; [r]

  property Height: Integer; [r]

  property ShowMode: TGlyphShowMode; [rw]

  property OnChange: TNotifyEvent; [rw]

end;

TButtonGlyph

TObject,IUnknown,IImageCacheListener