Class TBCBitmap (unit DFCtrls)

Inherits from

TDFControl

Constructors


constructor Create(AOwner: TComponent);

Public Method

------------------------------------- { TBCBITMAP } -------------------------------------



Functions

destructor Destroy;


procedure PaintBackup;

Protected Declarations

--------------------------------------} { TBCBitmap.


procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure SetAutoSize(Val: Boolean);

Backup.

procedure SetColorOption (Val : TColorOption);


procedure SetPicture(Val: TBitmap);


procedure SetStyle(Val : TDrawStyle);


Properties

property AutoSize : Boolean


property Background : TBackgndObj


property Bevel : TDFBevel


property ColorOption : TColorOption


property DrawStyle : TDrawStyle


property InvertImageOnMouseDown : Boolean


property Picture : TBitmap

Properties

property Canvas :


Events

event OnClick :


event OnDblClick :


event OnDragDrop :


event OnDragOver :


event OnEndDrag :


event OnMouseDown :


event OnMouseEnter : TNotifyEvent

Events

event OnMouseLeave : TNotifyEvent


event OnMouseMove :


event OnMouseUp :


event OnStartDrag :


Variables

FAutoSize : Boolean;

Private Declarations} {Private Variables

FColorOption : TColorOption;


FInvert : Boolean;


FMouseDown : Boolean;


FPicture : TBitmap;


FSmoothed : TBitmap;


FStyle : TDrawStyle;



Constructors


constructor Create(AOwner: TComponent);

Public Method

------------------------------------- { TBCBITMAP } -------------------------------------


Functions


destructor Destroy;


procedure PaintBackup;

Protected Declarations

--------------------------------------} { TBCBitmap.Paint } {--------------------------------------


procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure SetAutoSize(Val: Boolean);

Backup.Canvas.CopyRect(PaintRect, Canvas, PaintRect);


procedure SetColorOption (Val : TColorOption);


procedure SetPicture(Val: TBitmap);


procedure SetStyle(Val : TDrawStyle);


Properties


property AutoSize : Boolean


property Background : TBackgndObj


property Bevel : TDFBevel


property ColorOption : TColorOption


property DrawStyle : TDrawStyle


property InvertImageOnMouseDown : Boolean


property Picture : TBitmap

Properties


property Canvas :


Events


event OnClick :


event OnDblClick :


event OnDragDrop :


event OnDragOver :


event OnEndDrag :


event OnMouseDown :


event OnMouseEnter : TNotifyEvent

Events


event OnMouseLeave : TNotifyEvent


event OnMouseMove :


event OnMouseUp :


event OnStartDrag :


Variables


FAutoSize : Boolean;

Private Declarations} {Private Variables


FColorOption : TColorOption;


FInvert : Boolean;


FMouseDown : Boolean;


FPicture : TBitmap;


FSmoothed : TBitmap;


FStyle : TDrawStyle;