Class TFileLabel (unit FileLbl)

Inherits from

TCustomLabel

Constructors


constructor Create(AOwner: TComponent);

Déclarations publiques

---------------------------------------------------------------------------} { TFileLabel } {---------------------------------------------------------------------------



Functions

destructor Destroy;


procedure SetBounds(ALeft, ATop, AWidth, AHeight: Integer);


procedure AdjustCaption;


procedure CMFontChanged(var Message: TMessage);


procedure FillParts;


procedure SetDirection(ADirection: TDirection);


procedure SetFileName(AFileName: String);


procedure SetSeparator(ASeparator: String);


Properties

property Align :

publish the TLabel properties except Caption

property Alignment :


property AutoSize :


property Color :


property Direction : TDirection


property DragCursor :


property DragMode :


property Enabled :


property FileName : String

Déclarations publiées

property FocusControl :


property Font :


property ParentColor :


property ParentFont :


property ParentShowHint :


property PopupMenu :


property Separator : String


property ShowAccelChar :


property ShowHint :


property Transparent :


property Visible :


property WordWrap :


Events

event OnClick :

publish all the events

event OnDblClick :


event OnDragDrop :


event OnDragOver :


event OnEndDrag :


event OnMouseDown :


event OnMouseMove :


event OnMouseUp :


event OnStartDrag :


Variables

FDirection : TDirection;


FFileName : String;

Déclarations privées

FFirstPartIsDrive : Boolean;


FParts : TStringList;


FSeparator : String;



Constructors


constructor Create(AOwner: TComponent);

Déclarations publiques

---------------------------------------------------------------------------} { TFileLabel } {---------------------------------------------------------------------------


Functions


destructor Destroy;


procedure SetBounds(ALeft, ATop, AWidth, AHeight: Integer);


procedure AdjustCaption;


procedure CMFontChanged(var Message: TMessage);


procedure FillParts;


procedure SetDirection(ADirection: TDirection);


procedure SetFileName(AFileName: String);


procedure SetSeparator(ASeparator: String);


Properties


property Align :

publish the TLabel properties except Caption


property Alignment :


property AutoSize :


property Color :


property Direction : TDirection


property DragCursor :


property DragMode :


property Enabled :


property FileName : String

Déclarations publiées


property FocusControl :


property Font :


property ParentColor :


property ParentFont :


property ParentShowHint :


property PopupMenu :


property Separator : String


property ShowAccelChar :


property ShowHint :


property Transparent :


property Visible :


property WordWrap :


Events


event OnClick :

publish all the events


event OnDblClick :


event OnDragDrop :


event OnDragOver :


event OnEndDrag :


event OnMouseDown :


event OnMouseMove :


event OnMouseUp :


event OnStartDrag :


Variables


FDirection : TDirection;


FFileName : String;

Déclarations privées


FFirstPartIsDrive : Boolean;


FParts : TStringList;


FSeparator : String;