Class TGradient (unit Gradient)

Inherits from

TPersistent

Constructors


constructor Create;

Public declarations

TGradient



Functions

procedure Assign ( Value: TGradient );


procedure Changed;


procedure SetColor1( Value: TColor );


procedure SetColor2( Value: TColor );


procedure SetColor3( Value: TColor );


procedure SetColor4( Value: TColor );


procedure SetColor5( Value: TColor );


procedure SetColorCount( Value: TColorCount );


procedure SetGradientStyle( Value: TGradientStyle );


procedure SetLineDir(Value: TDirection);


procedure SetLineSize( Value: Integer );


Properties

property Color1 : TColor


property Color2 : TColor


property Color3 : TColor


property Color4 : TColor


property Color5 : TColor


property ColorCount : TColorCount


property GradientStyle : TGradientStyle

Published declarations

property LineDirection : TDirection


property LineSize : Integer


Events

event OnChange : TNotifyEvent


event OnDrawRect : TDrawRectEvent


Variables

fColor1 : TColor;


fColor2 : TColor;


fColor3 : TColor;


fColor4 : TColor;


fColor5 : TColor;


fColorCount : TColorCount;


fGradientStyle : TGradientStyle;

Private declarations

fLineDirection : TDirection;


fLineSize : Integer;


fOnChange : TNotifyEvent;


fOnDrawRect : TDrawRectEvent;



Constructors


constructor Create;

Public declarations

TGradient


Functions


procedure Assign ( Value: TGradient );


procedure Changed;


procedure SetColor1( Value: TColor );


procedure SetColor2( Value: TColor );


procedure SetColor3( Value: TColor );


procedure SetColor4( Value: TColor );


procedure SetColor5( Value: TColor );


procedure SetColorCount( Value: TColorCount );


procedure SetGradientStyle( Value: TGradientStyle );


procedure SetLineDir(Value: TDirection);


procedure SetLineSize( Value: Integer );


Properties


property Color1 : TColor


property Color2 : TColor


property Color3 : TColor


property Color4 : TColor


property Color5 : TColor


property ColorCount : TColorCount


property GradientStyle : TGradientStyle

Published declarations


property LineDirection : TDirection


property LineSize : Integer


Events


event OnChange : TNotifyEvent


event OnDrawRect : TDrawRectEvent


Variables


fColor1 : TColor;


fColor2 : TColor;


fColor3 : TColor;


fColor4 : TColor;


fColor5 : TColor;


fColorCount : TColorCount;


fGradientStyle : TGradientStyle;

Private declarations


fLineDirection : TDirection;


fLineSize : Integer;


fOnChange : TNotifyEvent;


fOnDrawRect : TDrawRectEvent;