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.

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;