tcySkinArea

type tcySkinArea = class(TImage)

protected

  procedure Loaded; override;

  procedure Click; override;

  procedure MouseDown(); override;

  procedure MouseUp(); override;

  procedure MouseMove(); override;

  procedure Paint; override;

  procedure BmpAreaChanged();

  procedure PictureDisabledChanged();

  procedure PictureNormalChanged();

  procedure PictureMouseOverChanged();

  procedure PictureMouseDownChanged();

  procedure PictureDownChanged();

  procedure PictureDownMouseOverChanged();

  procedure PictureDownMouseDownChanged();

public

  constructor Create(); override;

  destructor Destroy; override;

  property AreaIndex: Integer; [r]

  function GetAreaIndexByPos();

  function GetDrawAreaStateFromState();

  procedure UpdateArea();

  procedure DrawArea();

  function GetBitmapArea();

published

  property PictureDisabled: TPicture; [rw]

  property PictureNormal: TPicture; [rw]

  property PictureMouseOver: TPicture; [rw]

  property PictureMouseDown: TPicture; [rw]

  property PictureDown: TPicture; [rw]

  property PictureDownMouseOver: TPicture; [rw]

  property PictureDownMouseDown: TPicture; [rw]

  property Area: TBitmap; [rw]

  property Areas: tcyAreas; [rw]

  property OnClickArea: TClickAreaEvent; [rw]

  property OnPaint: TNotifyEvent; [rw]

end;

tcySkinArea

TObject