Class TDCFormFill (unit FormFill) |
Inherits from
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.
Constructor Create(AOwner: TComponent);
- --------------------------------------------------------------
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;
--------------------------------------------------------------
property DragCursor :
property DragMode :
property FillType : String
property ParentShowHint :
property PopupMenu :
property ShowHint :
property Visible :
event OnClick :
event OnDblClick :
event OnDragDrop :
event OnDragOver :
event OnEndDrag :
event OnMouseDown :
event OnMouseMove :
event OnMouseUp :
event OnStartDrag :
FFillType : Integer;
FOldBrush : THandle;
FOldPen : THandle;
fOldWndProc : pointer;
FRect : TRect;
OldBmp : THandle;
TempBmp : THandle;
TempDC : THandle;
Constructor Create(AOwner: TComponent);
--------------------------------------------------------------
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;
--------------------------------------------------------------
property DragCursor :
property DragMode :
property FillType : String
property ParentShowHint :
property PopupMenu :
property ShowHint :
property Visible :
event OnClick :
event OnDblClick :
event OnDragDrop :
event OnDragOver :
event OnEndDrag :
event OnMouseDown :
event OnMouseMove :
event OnMouseUp :
event OnStartDrag :
FFillType : Integer;
FOldBrush : THandle;
FOldPen : THandle;
fOldWndProc : pointer;
FRect : TRect;
OldBmp : THandle;
TempBmp : THandle;
TempDC : THandle;