TSharedIcon

type TSharedIcon = class(TSharedRasterImage)

protected

  procedure FreeHandle; override;

Release the handle for this image and free its resources

  procedure UpdateFromHandle(); virtual;

  function IsEmpty; override;

IsEmpty - checks if there is actually an image at the reference, and returns True if there is not

public

  constructor Create; override;

Create - constructor for TSharedIcon: performs inherited Create then creates a list of images

  destructor Destroy; override;

Destroy - destructor for TSharedIcon: frees the list of images and performs inherited Destroy

  procedure Clear;

Clear - remove the icon and free its resources

  procedure Delete();

Delete - remove the icon with specified index

  function GetIndex();

GetIndex - returns the Index of an image with specified pixel format, height and width

public

  class function GetImagesClass; virtual;

GetImagesClass - finds which class of icon images is being referenced

public

  procedure Add();

Add a reference to the shared icon

  function Count;

Count - returns the number of references to the shared icon

end;

TSharedIcon

TSharedIcon - a reference counted shared Icon

TSharedRasterImage

TSharedRasterImage - a reference counted raster image (may be shared between several controls)

TSharedImage

TSharedImage - base class for reference counted images

TObject