Class TColorFade (unit Ysfltool) |
Inherits from
TGraphicControl
constructor Create(AComponent: TComponent);
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
property Color : TBackClrs
property Direction : TDirection
Published declarations
BgnClr : TBackClrs;
Private declarations
FClr : TBackClrs;
FDir : TDirection;
constructor Create(AComponent: TComponent);
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
property Color : TBackClrs
property Direction : TDirection
Published declarations
BgnClr : TBackClrs;
Private declarations
FClr : TBackClrs;
FDir : TDirection;