Unit msgbox

Classes

TMessageForm -
TMsgBox - ************************************************************************}

Functions

GetAveCharSize -
Max -
Register -

Types

TDialogStyle
TIconSource
TMessageWave
TSymbol
TTheIcons
TTitleOptions

Constants

gcFileName
mcButtonHeight
mcButtonWidth
mcMessageLimit

Variables


Functions


function GetAveCharSize(Canvas: TCanvas): TPoint;


function Max(I, J: Integer): Integer;


procedure Register;


Types


TDialogStyle = (dsStayOnTop, dsNormal);

TIconSource = (ioDefault, ioResource, ioExternal);

TMessageWave = (mbWave, mbNone, mbDefault, mbConfirm, mbCriticalStop,
									 mbWarning, mbInformation);

TSymbol = (dgWarning,dgError,dgInformation,dgConfimation,dgNone);

TTheIcons =(zzIcon_1,zzIcon_2,zzIcon_3,zzIcon_4,zzIcon_5,zzIcon_6,zzIcon_7,
							 zzIcon_8,zzIcon_9);
************************************************************************} { Icon names that appear in the drop down list
TTitleOptions = (toDefault, toCustom, toNone);

Constants

gcFileName = 255

mcButtonHeight = 17

mcButtonWidth = 50

These are the button width and height and spacing distances

mcMessageLimit = 1024


Variables