Unit FormFill

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

Classes

TDCFormFill - clwhite

Functions

DoCloningFill - --------------------------------------------------------------
FillBorders - --------------------------------------------------------------
Min - --------------------------------------------------------------
PElPasoSub - --------------------------------------------------------------
Register - --------------------------------------------------------------
RegisterFillType - --------------------------------------------------------------

Types

TFillTypeEvent

Constants

cBack
cFront
cOther

Variables


Functions


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

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

procedure FillBorders(DCFormFill:TDCFormFill);

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

Function Min(A,B:Integer): Integer;

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

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

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

procedure Register;

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

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