Class TGradPan (unit Gradpan)

Inherits from

Tpanel

Constructors


constructor Create(AComponent: TComponent);



Functions

destructor destroy;


procedure Loaded;


procedure Paint;


procedure PanelMove(var M: TWMNCHitTest);

=========================================================================

procedure PanelMoved(var M: Tmessage);


Procedure BitmapChanged(sender:tobject);


procedure Borders;


Procedure CalcColGradients(col1,col2:tcolor;n:integer);


procedure FillOneWay(WType: TOneWayType);


procedure FillSimple;


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


procedure HorzOneWay;


procedure HorzTwoWay;


procedure Images;


procedure SetbgColor(Clr: TColor);


procedure SetBitmap(b:tbitmap);


procedure SetCtl3d(v:boolean);


procedure SetDir(Dir: TDirection);

*}

procedure SetfgColor(Clr: TColor);


procedure SetfoColor(Clr: TColor);


procedure SetTextEffect(e:TTextEffect);


procedure SetTextRotation(r:TTextRotation);


procedure SetVertAlign(a:TVertAlign);


procedure TextOutAngle(x,y: Integer; angle: Word; s: string);

*}

procedure VertOneWay;


procedure VertTwoWay;


Properties

property BackGroundEffect : TDirection


property Bitmap : TBitmap

Published declarations

property ColorEnd : TColor


property ColorShadow : TColor


property ColorStart : TColor


property Ctl3D : boolean


property Marge : integer


property Moveable : boolean


property TextEffect : TTextEffect


property TextRotation : TTextRotation


property VertAlign : TVertAlign


property canvas :


Events

event OnPanelMove : TNotifyEvent


Variables

bgrgb : tcolor;


fCtl3D : boolean;


FDir : TDirection;

Private declarations

fgrgb : tcolor;


fmarge : integer;


fmoveable : boolean;


fOnPanelMoved : TNotifyEvent;


forgb : tcolor;


fpicture : TBitmap;


fte : TTextEffect;


ftr : TTextRotation;


fvertalign : TVertAlign;


ga : tgrarray;



Constructors


constructor Create(AComponent: TComponent);


Functions


destructor destroy;


procedure Loaded;


procedure Paint;


procedure PanelMove(var M: TWMNCHitTest);

=========================================================================


procedure PanelMoved(var M: Tmessage);


Procedure BitmapChanged(sender:tobject);


procedure Borders;


Procedure CalcColGradients(col1,col2:tcolor;n:integer);


procedure FillOneWay(WType: TOneWayType);


procedure FillSimple;


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


procedure HorzOneWay;


procedure HorzTwoWay;


procedure Images;


procedure SetbgColor(Clr: TColor);


procedure SetBitmap(b:tbitmap);


procedure SetCtl3d(v:boolean);


procedure SetDir(Dir: TDirection);

*}


procedure SetfgColor(Clr: TColor);


procedure SetfoColor(Clr: TColor);


procedure SetTextEffect(e:TTextEffect);


procedure SetTextRotation(r:TTextRotation);


procedure SetVertAlign(a:TVertAlign);


procedure TextOutAngle(x,y: Integer; angle: Word; s: string);

*}


procedure VertOneWay;


procedure VertTwoWay;


Properties


property BackGroundEffect : TDirection


property Bitmap : TBitmap

Published declarations


property ColorEnd : TColor


property ColorShadow : TColor


property ColorStart : TColor


property Ctl3D : boolean


property Marge : integer


property Moveable : boolean


property TextEffect : TTextEffect


property TextRotation : TTextRotation


property VertAlign : TVertAlign


property canvas :


Events


event OnPanelMove : TNotifyEvent


Variables


bgrgb : tcolor;


fCtl3D : boolean;


FDir : TDirection;

Private declarations


fgrgb : tcolor;


fmarge : integer;


fmoveable : boolean;


fOnPanelMoved : TNotifyEvent;


forgb : tcolor;


fpicture : TBitmap;


fte : TTextEffect;


ftr : TTextRotation;


fvertalign : TVertAlign;


ga : tgrarray;