| Class TGradient (unit DPGradnt) |
TGraphicControl
| Constructors |
constructor Create(AComponent: TComponent);| Functions |
procedure Loaded;
procedure Paint;
procedure LoadColors ;
procedure SetBackColor(v : TColor);
procedure SetDirection(v : TGradDirection) ;
procedure SetFrontColor(v : TColor) ;
procedure SetSwapDirection(v : Boolean) ;
procedure WMEraseBkgnd(var Message: TWMEraseBkgnd);| Properties |
property ColorEnd : TColor
property ColorStart : TColor
property Direction : TGradDirection
property Swap : Boolean| Events |
| Variables |
FBackColor : TColor ;
FBC : array[0..255] of Longint;
FDirection : TGradDirection ;
FFrontColor : TColor;
FSwapDirection : Boolean ;| Constructors |
constructor Create(AComponent: TComponent);| Functions |
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
| Properties |
property ColorEnd : TColor
property ColorStart : TColor
property Direction : TGradDirection
property Swap : Boolean| Events |
| Variables |
FBackColor : TColor ;
FBC : array[0..255] of Longint;
FDirection : TGradDirection ;
FFrontColor : TColor;
FSwapDirection : Boolean ;