Unit splashms

-------------------------------------------------------------------------- } { SplashMs -- Splash Message Component Version 1 (c) AMS, Inc. 1997 } { -------------------------------------------------------------------------- } { Compatible with Delphi 1,2, and 3 } { -------------------------------------------------------------------------- } { Displays a Message above processing. } { } { Public Methods: Splash, Stop, Process } { How it works: } { Start by calling the Splash method. Stop by calling the Stop method. } { There is an OnCloseForm event attached to the OnClick event of all button } { types except the help button. } { Use the OnCloseForm event in your code to handle whatever } { processing you want to happen when the user clicks a button except help. } { This component was designed to allow a user to discontinue some processing. } { Therefore, you can enter code in the OnCloseForm that will end a proccess } { during application run-time. Possibly by setting a flag. Then call the } { Stop method of this component to stop the message from displaying. } { To have this component Act Modal. Set the Modal property to true, then } { Call Process in your code at the point of processing. Setting Modal to } { true will disable all components of the application, while calling the } { Process method will allow Windows to process any events of the Splash } { Message screen. } { } { Notes about the some custom properties } { } { Canceled -- is a Public Property that is not visible on the Object Inspector} { but can be accessed in your application to check to see if the } { Canceled button was clicked. } { } { FixedWidth -- If the FixedWidth is set at a value greater than 0, then the } { Splash Form will always be this width. } { } { Gauge -- The gauge property is activated when the ShowProgress property is } { set to TRUE. } { } { MessageText -- The MessageText can be dynamically set at run-time. This } { gives the ability to change the message as many times as } { is needed throughout the life of the component. } { } { --------------------------------------------------------------------------

Classes

TGaugeProperty -
TSplashGauge -
TSplashMessage -

Functions

Register - Edit } { ------------------------------------------------------------------------- } { Register -- Registers this component, and place in the SAFE Tab, of the } { Delphi Component Palette.

Types

TSMsgDlgBtn
TSMsgDlgButtons
TSMsgDlgType

Constants

Variables

MWind


Functions


procedure Register;

Edit } { ------------------------------------------------------------------------- } { Register -- Registers this component, and place in the SAFE Tab, of the } { Delphi Component Palette. } { -------------------------------------------------------------------------

Types


TSMsgDlgBtn = (smYes, smNo, smOK, smCancel, smAbort, smRetry, smIgnore, smAll, smHelp);

TSMsgDlgButtons = set of TSMsgDlgBtn

TSMsgDlgType = (smWarning, smError, smInformation, smConfirmation, smCustom);

Constants


Variables

MWind : TSplashMessage