Class TDCFormFill (unit FormFill)

Inherits from

TGraphicControl

clwhite

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;