| Class TDIBPaintBox (unit DIBpbox) |
TControl
| Constructors |
constructor Create(AOwner: TComponent);| Functions |
destructor Destroy;
procedure Paint;
procedure SetBounds(ALeft, ATop, AWidth, AHeight: Integer);
procedure WMPaint(var Message: TWMPaint);| Properties |
property Align :
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| 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;
FOnPaint : TNotifyEvent;| 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 : TDIBSurfaceproperty 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;