TBaseImgPanel

type TBaseImgPanel = class(TPanel)

protected

  function DoMouseWheel(); override;

  function DoMouseHWheel();

  procedure MouseDown(); override;

  procedure MouseMove(); override;

  procedure MouseUp(); override;

  procedure DrawToPanelCanvas(); virtual;

  procedure Paint; override;

  procedure WMKeyDown(); message;

  procedure WMKeyUp(); message;

  procedure CMMouseLeave(); message;

  procedure CMFocusChanged(); message;

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure ScaleToFit;

  function IsEmpty;

  function IsScaledToFit;

  function ClientToImage();

  function ImageToClient();

  function RecenterImageAt();

  procedure ScaleAtPoint();

  property InnerClientRect: TRect; [r]

  property InnerMargin: Integer; [r]

  property Offset: TPoint; [rw]

  property ScrollbarHorz: TPanelScrollbar; [rw]

  property ScrollbarVert: TPanelScrollbar; [rw]

published

  property AutoCenter: Boolean; [rw]

  property Color: TColor; [rw]

  property FocusedColor: TColor; [rw]

  property UnFocusedColor: TColor; [rw]

  property Scale: Double; [rw]

  property ScaleMin: Double; [rw]

  property ScaleMax: Double; [rw]

  property ShowScrollButtons: TShowScrollBtns; [rw]

  property AllowKeyScroll: Boolean; [rw]

  property AllowScrnScroll: Boolean; [rw]

  property AllowZoom: Boolean; [rw]

  property BkgType: TPanelBkgType; [rw]

  property BkgChBrdColor1: TColor32; [rw]

  property BkgChBrdColor2: TColor32; [rw]

  property BkgChBrdSize: Integer; [rw]

  property OnKeyDown: TKeyEvent; [rw]

  property OnKeyUp: TKeyEvent; [rw]

  property OnMouseWheel: TMouseWheelEvent; [rw]

  property OnScrolling: TNotifyEvent; [rw]

  property OnZooming: TNotifyEvent; [rw]

end;

TBaseImgPanel

TObject