| Class TDirLabel (unit DirLabel) |
TCustomLabel
| Constructors |
constructor Create(AOwner: TComponent);| Functions |
procedure Paint;PChar(Text) is not compatible with D1
procedure SetBounds(ALeft, ATop, AWidth, AHeight: Integer);
procedure DoDrawText(var Rect: TRect; Flags: Word);
function KortPadIn(Pad: String; maxL: Integer): String;
function MakePathShorterByOneDir(Var Pad: String): Boolean;
procedure SetDirName(Value: String);| Properties |
property About : TAboutProperty
property Align :
property Alignment :
property Color :
property DirName : String
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 : | Events |
event OnClick :
event OnDblClick :
event OnDragDrop :
event OnDragOver :
event OnEndDrag :
event OnMouseDown :
event OnMouseMove :
event OnMouseUp :
event OnStartDrag : | Variables |
FAbout : TAboutProperty;
FDirName : String;| 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 : StringPublished 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