| Class TExtForm (unit ExtForm) |
TForm
| Constructors |
constructor Create(AOwner: TComponent);
constructor CreateNew(AOwner: TComponent);| Functions |
procedure Center;
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);
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;