Class TExtForm (unit ExtForm) |
Inherits from
TForm
constructor Create(AOwner: TComponent);
- ************************************************************************************
constructor CreateNew(AOwner: TComponent);
- Font:=TFont.
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);
property AcceptDragFiles : Boolean
property Gradient : TGradient
property MaxX : Integer
property MaxY : Integer
property MinX : Integer
property MinY : Integer
property UseTahoma : Boolean
event OnDrop : TDropEvent
FAcceptFiles : Boolean;
FGradient : TGradient;
FMaxX : Integer;
FMaxY : Integer;
FMinX : Integer;
FMinY : Integer;
FOnDrop : TDropEvent;
FUseTahoma : Boolean;
constructor Create(AOwner: TComponent);
************************************************************************************
constructor CreateNew(AOwner: TComponent);
Font:=TFont.Create;
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);
property AcceptDragFiles : Boolean
property Gradient : TGradient
property MaxX : Integer
property MaxY : Integer
property MinX : Integer
property MinY : Integer
property UseTahoma : Boolean
event OnDrop : TDropEvent
FAcceptFiles : Boolean;
FGradient : TGradient;
FMaxX : Integer;
FMaxY : Integer;
FMinX : Integer;
FMinY : Integer;
FOnDrop : TDropEvent;
FUseTahoma : Boolean;