TcyCustomImage

type TcyCustomImage = class(TImage)

protected

  function CanAutoSize(); override;

  procedure Paint; override;

  procedure MouseDown(); override;

  procedure MouseUp(); override;

  procedure MouseMove(); override;

  property CanvasControl: TCanvas; [r]

  property Position: TBgPosition; [rw]

  property MouseOptions: TcyImageMouseOptions; [rw]

  property OffsetX: Integer; [rw]

  property OffsetY: Integer; [rw]

  property Zoom: Double; [rw]

  property BeforePaint: TNotifyEvent; [rw]

  property OnPaint: TNotifyEvent; [rw]

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure ApplyZoomFactor;

  function MousePosToPixelPos();

  function PixelPosToMousePos();

  procedure DragImage();

  procedure DragImageFromMouseDown();

  procedure ZoomFromMousePos();

  property MouseIsDown: Boolean; [r]

  property MouseDownOffsetX: Integer; [r]

  property MouseDownOffsetY: Integer; [r]

  property MouseDownFromPos: TPoint; [r]

  property MouseDownFromPixel: TPoint; [r]

end;

TcyCustomImage

TObject