| Class TSystemInfo (unit SysInfo) |
TCustomLabel
| Constructors |
constructor Create( Owner: TComponent );| Functions |
procedure Refresh;
function FormatBytes(b: LongInt): string;
function ReadText: string;
procedure SetAttribute(at: TAttribute);
procedure SetCaption;
procedure SetDisk(d: char);| Properties |
property Align :
property Alignment :
property Attribute : TAttribute
property AutoSize :
property Color :
property Disk : char
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 WordWrap :
property Text : string| Events |
event OnChange : TChangeProcedure
event OnClick :
event OnDblClick :
event OnDragDrop :
event OnDragOver :
event OnEndDrag :
event OnMouseDown :
event OnMouseMove :
event OnMouseUp : | Variables |
FAttribute : TAttribute;
FDisk : char;
FOnChange : TChangeProcedure;| Constructors |
constructor Create( Owner: TComponent );Public declarations
| Functions |
procedure Refresh;
function FormatBytes(b: LongInt): string;
function ReadText: string;
procedure SetAttribute(at: TAttribute);disallow all but drive letters} { ignore that the specified disk may not exist on this machine
procedure SetCaption;
procedure SetDisk(d: char);| Properties |
property Align : Published declarations
property Alignment :
property Attribute : TAttribute
property AutoSize :
property Color :
property Disk : char
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 WordWrap :
property Text : string| Events |
event OnChange : TChangeProcedure
event OnClick :
event OnDblClick :
event OnDragDrop :
event OnDragOver :
event OnEndDrag :
event OnMouseDown :
event OnMouseMove :
event OnMouseUp : | Variables |
FAttribute : TAttribute;Private declarations
FDisk : char;
FOnChange : TChangeProcedure;