Class TDirLabel (unit DirLabel)

Inherits from

TCustomLabel

Constructors


constructor Create(AOwner: TComponent);

Public declarations


Functions

procedure Paint;

Protected declarations

PChar(Text) is not compatible with D1


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


procedure DoDrawText(var Rect: TRect; Flags: Word);

This couses the proper adjustment.

function KortPadIn(Pad: String; maxL: Integer): String;

Try to remove the most left directory in the 'Pad'.

function MakePathShorterByOneDir(Var Pad: String): Boolean;

calculate new width

procedure SetDirName(Value: String);


Properties

property About : TAboutProperty


property Align :


property Alignment :


property Color :

property AutoSize; You don't wand AutoSize.

property DirName : String

Published declarations

property DragCursor :


property DragMode :


property Enabled :


property FocusControl :


property Font :


property ParentColor :


property ParentFont :


property ParentShowHint :


property PopupMenu :


property ShowAccelChar :


property ShowHint :


property Transparent :


property Visible :

property Layout; Delphi 3 only

Events

event OnClick :

property WordWrap; You don't wand wordwrap.

event OnDblClick :


event OnDragDrop :


event OnDragOver :


event OnEndDrag :


event OnMouseDown :


event OnMouseMove :


event OnMouseUp :


event OnStartDrag :


Variables

FAbout : TAboutProperty;


FDirName : String;

Private declarations


Constructors


constructor Create(AOwner: TComponent);

Public declarations


Functions


procedure Paint;

Protected declarations

PChar(Text) is not compatible with D1


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


procedure DoDrawText(var Rect: TRect; Flags: Word);

This couses the proper adjustment.


function KortPadIn(Pad: String; maxL: Integer): String;

Try to remove the most left directory in the 'Pad'.


function MakePathShorterByOneDir(Var Pad: String): Boolean;

calculate new width


procedure SetDirName(Value: String);


Properties


property About : TAboutProperty


property Align :


property Alignment :


property Color :

property AutoSize; You don't wand AutoSize.} {property Caption; Caption is replaced by DirName.


property DirName : String

Published declarations


property DragCursor :


property DragMode :


property Enabled :


property FocusControl :


property Font :


property ParentColor :


property ParentFont :


property ParentShowHint :


property PopupMenu :


property ShowAccelChar :


property ShowHint :


property Transparent :


property Visible :

property Layout; Delphi 3 only


Events


event OnClick :

property WordWrap; You don't wand wordwrap.


event OnDblClick :


event OnDragDrop :


event OnDragOver :


event OnEndDrag :


event OnMouseDown :


event OnMouseMove :


event OnMouseUp :


event OnStartDrag :


Variables


FAbout : TAboutProperty;


FDirName : String;

Private declarations