TBGRASVGImageList

type TBGRASVGImageList = class(TComponent)

protected

  procedure Load();

  procedure Save();

  procedure DefineProperties(); override;

  function GetCount;

  function GetSVGString(); overload;

  procedure Rasterize;

  procedure RasterizeIfNeeded;

  procedure QueryRasterize;

public

  constructor Create(); override;

  destructor Destroy; override;

  function Add();

  procedure Remove();

  procedure Exchange();

  procedure Replace();

  function GetScaledSize();

  function GetBGRABitmap();

  function GetBitmap();

  procedure Draw();

  procedure PopulateImageList();

  property SVGString []: string; [r]

  property Count: Integer; [r]

published

  property Width: Integer; [rw]

  property Height: Integer; [rw]

  property ReferenceDPI: Integer; [rw]

  property UseSVGAlignment: Boolean; [rw]

  property HorizontalAlignment: TAlignment; [rw]

  property VerticalAlignment: TTextLayout; [rw]

  property TargetRasterImageList: TImageList; [rw]

end;

TBGRASVGImageList

TObject