TCustomPaintBox32

type TCustomPaintBox32 = class(TCustomControl)

protected

  procedure FullUpdateHandler();

  procedure AreaUpdateHandler();

  procedure AreaUpdated(); virtual;

  procedure CreateBuffer; virtual;

  function CreateRepaintOptimizer(); virtual;

  procedure RepaintModeChanged; virtual;

  procedure SetRepaintMode(); virtual;

  function CustomRepaint; virtual;

  function InvalidRectsAvailable; virtual;

  procedure SetPartialRepaintQueued;

  procedure DoPrepareInvalidRects; virtual;

  procedure DoPaintBuffer; virtual;

  procedure DoPaintGDIOverlay; virtual;

  procedure DoBufferResized(); virtual;

  procedure MouseDown(); override;

  procedure MouseEnter; override;

  procedure MouseLeave; override;

  procedure AssignTo(); override;

  procedure Loaded; override;

  procedure Paint; override;

  procedure ResetInvalidRects;

  procedure ResizeBuffer;

  procedure DoChanged; virtual;

  property RepaintOptimizer: TCustomRepaintOptimizer; [r]

  property BufferValid: Boolean; [rw]

  property InvalidRects: TRectList; [r]

  property UpdateRects: TRectList; [r]

  property UpdateCount: Integer; [r]

  property LockUpdateCount: Integer; [r]

  property Modified: Boolean; [r]

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure BeginUpdate;

  procedure EndUpdate;

  procedure Changed;

  procedure BeginLockUpdate;

  procedure EndLockUpdate;

  function GetViewportRect; virtual;

  procedure Flush();

  procedure Invalidate; override;

  procedure ForceFullInvalidate; virtual;

  procedure Resize; override;

  procedure SetBounds(); override;

  property Buffer: TBitmap32; [r]

  property BufferOversize: Integer; [rw]

  property Options: TPaintBoxOptions; [rw]

  property MouseInControl: Boolean; [r]

  property RepaintMode: TRepaintMode; [rw]

  property OnChange: TNotifyEvent; [rw]

  property OnMouseEnter: TNotifyEvent; [rw]

  property OnMouseLeave: TNotifyEvent; [rw]

  property OnGDIOverlay: TNotifyEvent; [rw]

end;

TCustomPaintBox32

TObject