Class TExtForm (unit ExtForm)

Inherits from

TForm

Constructors


constructor Create(AOwner: TComponent);

************************************************************************************

constructor CreateNew(AOwner: TComponent);

Font:=TFont.


Functions

procedure Center;

Gradient.

destructor Destroy;


procedure CalcGradientCaption;


procedure DrawGradientCaption;

************************************************************************************

procedure SetAcceptFiles(Value: Boolean);

************************************************************************************

procedure SetGradient(g: TGradient);

************************************************************************************

procedure SetUseTahoma(b: Boolean);


procedure wmDropFiles(var DragMsg: TWMDropFiles);


procedure wmGetMinMaxInfo(var Msg: TMessage);

************************************************************************************

procedure wmNCActivate(var Msg: TMessage);


procedure wmNCPaint(var Msg: TWMNCPaint);

BMP.

procedure wmSetText(var TextMsg: TWMSetText);

************************************************************************************

procedure wmSettingChange(var Msg: TMessage);


Properties

property AcceptDragFiles : Boolean


property Gradient : TGradient


property MaxX : Integer


property MaxY : Integer


property MinX : Integer


property MinY : Integer


property UseTahoma : Boolean


Events

event OnDrop : TDropEvent


Variables

FAcceptFiles : Boolean;


FGradient : TGradient;


FMaxX : Integer;


FMaxY : Integer;


FMinX : Integer;


FMinY : Integer;


FOnDrop : TDropEvent;


FUseTahoma : Boolean;



Constructors


constructor Create(AOwner: TComponent);

************************************************************************************


constructor CreateNew(AOwner: TComponent);

Font:=TFont.Create;


Functions


procedure Center;

Gradient.Font.Name:=n;


destructor Destroy;


procedure CalcGradientCaption;


procedure DrawGradientCaption;

************************************************************************************


procedure SetAcceptFiles(Value: Boolean);

************************************************************************************


procedure SetGradient(g: TGradient);

************************************************************************************


procedure SetUseTahoma(b: Boolean);


procedure wmDropFiles(var DragMsg: TWMDropFiles);


procedure wmGetMinMaxInfo(var Msg: TMessage);

************************************************************************************


procedure wmNCActivate(var Msg: TMessage);


procedure wmNCPaint(var Msg: TWMNCPaint);

BMP.Canvas.Font.Assign(FGradient.Font);


procedure wmSetText(var TextMsg: TWMSetText);

************************************************************************************


procedure wmSettingChange(var Msg: TMessage);


Properties


property AcceptDragFiles : Boolean


property Gradient : TGradient


property MaxX : Integer


property MaxY : Integer


property MinX : Integer


property MinY : Integer


property UseTahoma : Boolean


Events


event OnDrop : TDropEvent


Variables


FAcceptFiles : Boolean;


FGradient : TGradient;


FMaxX : Integer;


FMaxY : Integer;


FMinX : Integer;


FMinY : Integer;


FOnDrop : TDropEvent;


FUseTahoma : Boolean;