Class TDirLabel (unit DirLabel) |
Inherits from
TCustomLabel
constructor Create(AOwner: TComponent);
- Public declarations
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);
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
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 :
FAbout : TAboutProperty;
FDirName : String;
Private declarations
constructor Create(AOwner: TComponent);
Public declarations
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);
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
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 :
FAbout : TAboutProperty;
FDirName : String;
Private declarations