TgaLayer

type TgaLayer = class

protected

  procedure BeginUpdate; virtual;

  procedure EndUpdate; virtual;

  procedure RefreshPending;

  function CanUpdate;

  function GetBounds;

  procedure ImageChanged(); virtual;

public

  constructor Create(); virtual;

  destructor Destroy; override;

  procedure SetSize();

  function BringForwardOne;

  function SendBackOne;

  function BringToFront;

  function SendToBack;

  function Move();

  procedure PositionAt();

  procedure PositionCenteredAt();

  procedure SetBounds(); virtual;

  procedure SetInnerBounds(); virtual;

  procedure Invalidate();

  procedure Offset(); virtual;

  property Bounds: TRect; [r]

  property CursorId: Integer; [rw]

  property Parent: TgaLayerGroup; [rw]

  property Height: Integer; [r]

  property Image: TgaGraphMem; [r]

  property Index: Integer; [r]

  property Left: Integer; [r]

  property MidPoint: TPointD; [r]

  property Name: string; [rw]

  property Opacity: Byte; [rw]

  property OuterMargin: Double; [rw]

  property Root: TgaLayerGroup; [r]

  property RootOwner: TgaLayerList; [r]

  property Top: Integer; [r]

  property Visible: Boolean; [rw]

  property Width: Integer; [r]

  property Tag: Cardinal; [rw]

  property PrevLayerInGroup: TgaLayer; [r]

  property NextLayerInGroup: TgaLayer; [r]

end;

TgaLayer

TObject