Class TColorFade (unit Ysfltool)

Inherits from

TGraphicControl

Constructors


constructor Create(AComponent: TComponent);



Functions

procedure Loaded;


procedure Paint;

Protected declarations

procedure FillOneWay(WType: TOneWayType; Clr: TColor);

*}

select brush and paint color band


procedure FillTwoWay(WType: TTwoWayType; WDir: TTwoWayDir; Clr: TColor);


procedure HorzOneWay(Clr1, Clr2: TColor);


procedure HorzTwoWay(Clr1, Clr2: TColor);

select brush and paint color band

procedure SetColor(Clr: TBackClrs);


procedure SetDir(Dir: TDirection);

*}

procedure VertOneWay(Clr1, Clr2: TColor);

select brush and paint color band

procedure VertTwoWay(Clr1, Clr2: TColor);

select brush and paint color band

Properties

property Color : TBackClrs


property Direction : TDirection

Published declarations

Events

Variables

BgnClr : TBackClrs;

Private declarations

FClr : TBackClrs;


FDir : TDirection;



Constructors


constructor Create(AComponent: TComponent);


Functions


procedure Loaded;


procedure Paint;

Protected declarations


procedure FillOneWay(WType: TOneWayType; Clr: TColor);

*}

select brush and paint color band


procedure FillTwoWay(WType: TTwoWayType; WDir: TTwoWayDir; Clr: TColor);


procedure HorzOneWay(Clr1, Clr2: TColor);


procedure HorzTwoWay(Clr1, Clr2: TColor);

select brush and paint color band


procedure SetColor(Clr: TBackClrs);


procedure SetDir(Dir: TDirection);

*}


procedure VertOneWay(Clr1, Clr2: TColor);

select brush and paint color band


procedure VertTwoWay(Clr1, Clr2: TColor);

select brush and paint color band


Properties


property Color : TBackClrs


property Direction : TDirection

Published declarations


Events


Variables


BgnClr : TBackClrs;

Private declarations


FClr : TBackClrs;


FDir : TDirection;