| Class TDCFormFill (unit FormFill) |
TGraphicControl
This component can fill your form canvas with 17 different cute styles and will improve your application's look greately. Very fast. No tiled bitmaps.
| Constructors |
Constructor Create(AOwner: TComponent);| Functions |
Destructor Destroy;
procedure Paint;
procedure SetParent(AParent : TWinControl);
procedure DoBeginFillType;
procedure DoEndFillType;
function GetFillType:String;
procedure HookWndProc;
Function MagicConst:Integer;
procedure NewWndProc(var Message : TMessage);
PROCEDURE paintit(x,y: integer; front,back: TColor);
PROCEDURE paintitH(x,y: integer; front,back: TColor);
procedure RandomClone(ACloneSize,BegX:Integer);
procedure SelectBrush(AColor:TColor);
procedure SelectBrushPen(AColor:TColor);
procedure SelectPen(AColor:TColor);
procedure SetFillType(Const V:String);
procedure UnHookWndProc;
procedure UnselectBrush;
procedure UnselectPen;
procedure UnselectPenBrush;| Properties |
property DragCursor :
property DragMode :
property FillType : String
property ParentShowHint :
property PopupMenu :
property ShowHint :
property Visible : | Events |
event OnClick :
event OnDblClick :
event OnDragDrop :
event OnDragOver :
event OnEndDrag :
event OnMouseDown :
event OnMouseMove :
event OnMouseUp :
event OnStartDrag : | Variables |
FFillType : Integer;
FOldBrush : THandle;
FOldPen : THandle;
fOldWndProc : pointer;
FRect : TRect;
OldBmp : THandle;
TempBmp : THandle;
TempDC : THandle;| Constructors |
Constructor Create(AOwner: TComponent);--------------------------------------------------------------
| Functions |
Destructor Destroy;--------------------------------------------------------------
procedure Paint;--------------------------------------------------------------
procedure SetParent(AParent : TWinControl);------------------------------------------------------------------
procedure DoBeginFillType;--------------------------------------------------------------
procedure DoEndFillType;--------------------------------------------------------------
function GetFillType:String;--------------------------------------------------------------
procedure HookWndProc;--------------------------------------------------------------
Function MagicConst:Integer;--------------------------------------------------------------
procedure NewWndProc(var Message : TMessage);--------------------------------------------------------------
PROCEDURE paintit(x,y: integer; front,back: TColor);--------------------------------------------------------------
PROCEDURE paintitH(x,y: integer; front,back: TColor);--------------------------------------------------------------
procedure RandomClone(ACloneSize,BegX:Integer);--------------------------------------------------------------
procedure SelectBrush(AColor:TColor);--------------------------------------------------------------
procedure SelectBrushPen(AColor:TColor);--------------------------------------------------------------
procedure SelectPen(AColor:TColor);--------------------------------------------------------------
procedure SetFillType(Const V:String);--------------------------------------------------------------
procedure UnHookWndProc;------------------------------------------------------------------
procedure UnselectBrush;--------------------------------------------------------------
procedure UnselectPen;--------------------------------------------------------------
procedure UnselectPenBrush;--------------------------------------------------------------
| Properties |
property DragCursor :
property DragMode :
property FillType : String
property ParentShowHint :
property PopupMenu :
property ShowHint :
property Visible : | Events |
event OnClick :
event OnDblClick :
event OnDragDrop :
event OnDragOver :
event OnEndDrag :
event OnMouseDown :
event OnMouseMove :
event OnMouseUp :
event OnStartDrag : | Variables |
FFillType : Integer;
FOldBrush : THandle;
FOldPen : THandle;
fOldWndProc : pointer;
FRect : TRect;
OldBmp : THandle;
TempBmp : THandle;
TempDC : THandle;