Class TGradient (unit DPGradnt) |
Inherits from
TGraphicControl
constructor Create(AComponent: TComponent);
procedure Loaded;
this is to set left-right or up-down
procedure Paint;
is going to completely redraw itself anyway.
procedure LoadColors ;
procedure SetBackColor(v : TColor);
set the direction to reverse or normal
procedure SetDirection(v : TGradDirection) ;
procedure SetFrontColor(v : TColor) ;
procedure SetSwapDirection(v : Boolean) ;
fix the end colour
procedure WMEraseBkgnd(var Message: TWMEraseBkgnd);
precalculated Brush.
property ColorEnd : TColor
property ColorStart : TColor
property Direction : TGradDirection
property Swap : Boolean
FBackColor : TColor ;
FBC : array[0..255] of Longint;
FDirection : TGradDirection ;
FFrontColor : TColor;
FSwapDirection : Boolean ;
constructor Create(AComponent: TComponent);
procedure Loaded;
this is to set left-right or up-down
procedure Paint;
is going to completely redraw itself anyway.
procedure LoadColors ;
procedure SetBackColor(v : TColor);
set the direction to reverse or normal
procedure SetDirection(v : TGradDirection) ;
procedure SetFrontColor(v : TColor) ;
procedure SetSwapDirection(v : Boolean) ;
fix the end colour
procedure WMEraseBkgnd(var Message: TWMEraseBkgnd);
precalculated Brush.Colors
property ColorEnd : TColor
property ColorStart : TColor
property Direction : TGradDirection
property Swap : Boolean
FBackColor : TColor ;
FBC : array[0..255] of Longint;
FDirection : TGradDirection ;
FFrontColor : TColor;
FSwapDirection : Boolean ;