Unit FormFill

******************************************} { } { TDCFormFill component } { Copyright (c) 1997 S.Kurinny & S.Kostinsky } { } {

Classes

TDCFormFill - This component can fill your form canvas with 17 different cute styles and will improve your application's look greately.
TFillTypeEditor - --------------------------------------------------------------

Functions

DoCloningFill - --------------------------------------------------------------
FillBorders - --------------------------------------------------------------
FormFillRegister - --------------------------------------------------------------
PElPasoSub - --------------------------------------------------------------
RegisterFillType - --------------------------------------------------------------

Types

TFillTypeEvent

Constants

cBack
cFront
cOther

Variables


Functions


procedure DoCloningFill(FromDC,ToDC: THandle; ASize:Integer;FRect:TRect);

--------------------------------------------------------------

procedure FillBorders(DCFormFill:TDCFormFill);

--------------------------------------------------------------

procedure FormFillRegister;

--------------------------------------------------------------

procedure PElPasoSub(DCFormFill:TDCFormFill;Front,Back:TColor);

--------------------------------------------------------------

procedure RegisterFillType(Const FormName:String; AProc:TFillTypeEvent);

--------------------------------------------------------------

Types


TFillTypeEvent=procedure(DCFormFill : TDCFormFill; Var CloneSize:Integer)
--------------------------------------------------------------

Constants

cBack = clBtnHighlight

clgray

cFront = clBtnShadow

clsilver

cOther = clBtnFace


Variables