TDesktopCanvas -
TDOSEnvironment -
TSystemMetric - easy access of the system metrics
AlignDialog - Align the dialog in with the bounds of Mainform e.
CenterDialog - Center the dialog in the bounds from Mainform e.
DisableAll - make enable property = false all components in the array eg.
EnableAll - make enable property = true for all components in the array
HideAll - make visible property = false for all components in the array
ShowAll - make visible property = true for all components in the array
sysColorDepth - TSystemMetric
alFBottom
alFBottomOut
alFCenter
alFLeft
alFLeftOut
alFNone
alFRight
alFRightOut
alFTop
alFTopOut
alHCenter
alVCenter
Environment
IsNewShell
IsWin95
IsWinNT
SysMetric
WindowsVersion
procedure AlignDialog(mainform,dialog:tform;Al:integer);
Align the dialog in with the bounds of Mainform e.g. CenterDialog(screen.activeform,form1,);***************************************}
procedure CenterDialog(mainform,dialog:tform);
Center the dialog in the bounds from Mainform e.g. CenterDialog(screen.activeform,form1); result
procedure DisableAll(const ar : array of tcontrol);
make enable property = false all components in the array eg. DisableAll([edit1,edit2,checkbox1,label1]);
procedure EnableAll(const ar : array of tcontrol);
make enable property = true for all components in the array
procedure HideAll(const ar : array of tcontrol);
make visible property = false for all components in the array
procedure ShowAll(const ar : array of tcontrol);
make visible property = true for all components in the array
function sysColorDepth: Integer;
TSystemMetric
alFBottom = $2
alFBottomOut = $80
alFCenter = alVCenter+alHCenter
alFLeft = $4
alFLeftOut = $100
alFNone = $0
alFRight = $8
alFRightOut = $200
alFTop = $1
alFTopOut = $40
alHCenter = $20
alVCenter = $10
Environment : tdosenvironment
IsNewShell : boolean
IsWin95 : Boolean
IsWinNT : boolean
SysMetric : TSystemMetric
WindowsVersion : string