Unit startup

Classes

TDesktopCanvas -
TDOSEnvironment -
TSystemMetric - easy access of the system metrics

Functions

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

Types

Constants

alFBottom
alFBottomOut
alFCenter
alFLeft
alFLeftOut
alFNone
alFRight
alFRightOut
alFTop
alFTopOut
alHCenter
alVCenter

Variables

Environment
IsNewShell
IsWin95
IsWinNT
SysMetric
WindowsVersion


Functions


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

Types


Constants

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


Variables

Environment : tdosenvironment

IsNewShell : boolean

IsWin95 : Boolean

IsWinNT : boolean

SysMetric : TSystemMetric

WindowsVersion : string