Class TDIBPaintBox (unit DIBpbox)

Inherits from

TControl

Constructors


constructor Create(AOwner: TComponent);



Functions

destructor Destroy;

FDIBCanvas := TCanvas.

procedure Paint;

Public declarations

procedure SetBounds(ALeft, ATop, AWidth, AHeight: Integer);


procedure WMPaint(var Message: TWMPaint);

FDIBCanvas.

Properties

property Align :

Published declarations

property Color :


property DragCursor :


property DragMode :


property Enabled :


property Font :


property ParentColor :


property ParentFont :


property ParentShowHint :


property PopupMenu :


property ShowHint :


property Visible :


property Canvas : TCanvas


property DIBSurface : TDIBSurface

property DIBCanvas : TCanvas read FDIBCanvas;

Events

event OnClick :


event OnDblClick :


event OnDragDrop :


event OnDragOver :


event OnEndDrag :


event OnMouseDown :


event OnMouseMove :


event OnMouseUp :


event OnPaint : TNotifyEvent


event OnStartDrag :


Variables

FCanvas : TCanvas;


FDIBsurface : TDIBSurface;

Private declarations

FOnPaint : TNotifyEvent;

FDIBCanvas : TCanvas;


Constructors


constructor Create(AOwner: TComponent);


Functions


destructor Destroy;

FDIBCanvas := TCanvas.Create; FDIBCanvas.Handle := FDibSurface.Handle;


procedure Paint;

Public declarations


procedure SetBounds(ALeft, ATop, AWidth, AHeight: Integer);


procedure WMPaint(var Message: TWMPaint);

FDIBCanvas.Handle := FDibSurface.Handle;


Properties


property Align :

Published declarations


property Color :


property DragCursor :


property DragMode :


property Enabled :


property Font :


property ParentColor :


property ParentFont :


property ParentShowHint :


property PopupMenu :


property ShowHint :


property Visible :


property Canvas : TCanvas


property DIBSurface : TDIBSurface

property DIBCanvas : TCanvas read FDIBCanvas;


Events


event OnClick :


event OnDblClick :


event OnDragDrop :


event OnDragOver :


event OnEndDrag :


event OnMouseDown :


event OnMouseMove :


event OnMouseUp :


event OnPaint : TNotifyEvent


event OnStartDrag :


Variables


FCanvas : TCanvas;


FDIBsurface : TDIBSurface;

Private declarations


FOnPaint : TNotifyEvent;

FDIBCanvas : TCanvas;