msgdialog.wdl

3D GameStudio 的Delphi开发包

// MsgDialog.wdl

// Michal Messerschmidt aka LazyDog of Lazy Dog Software
// (www.LazyDogSoftware.com)
// (c) Lazy Dog Software / Michael Messerschmidt 2007

// this allows you to call the ShowMsg_Var function from the Delphi Library which 
// allows you to show the standard windows MessageDlg.  
// This works even if your game is using full screen mode!!

// Msg        = the message to display
// Caption    = the caption of the window
// DlgType    = Style of the window, choose one of mtXXXX values from below
// DlgButtons = the buttons to include on the window, choose the mbXXXX values from below,
//              you can have multiple buttons by adding them together, for example:
//              to have the yes and no buttons use mbYes+mbNo
// Returns one of the mrXXXX values from below.
// example:
// var RetVal;
// RetVal = ShowMsg_Var("Do you want to Quit?","",mtConformation,mbYes+mbNo);
//
// if RetVal == mrYes
// {
//    sys_exit("");
// }

// Return Values
DEFINE mrNone   = 0;
DEFINE mrOk     = 1;
DEFINE mrCancel = 2;
DEFINE mrAbort  = 3;  
DEFINE mrRetry  = 4;  
DEFINE mrIgnore = 5;  
DEFINE mrYes    = 6;
DEFINE mrNo     = 7;
DEFINE mrClose  = 8;

// Buttons
DEFINE mbYes      = 1;
DEFINE mbNo       = 2;
DEFINE mbOK       = 4;
DEFINE mbCancel   = 8;
DEFINE mbAbort    = 16;
DEFINE mbRetry    = 32;
DEFINE mbIgnore   = 64;
DEFINE mbAll      = 128;
DEFINE mbNoToAll  = 256;
DEFINE mbYesToAll = 512;

// Dialog Types
DEFINE mtWarning      = 0;
DEFINE mtError        = 1;
DEFINE mtInformation  = 2;
DEFINE mtConfirmation = 3;
DEFINE mtCustom       = 4;

dllfunction ShowMsg_Var(Msg,Caption,DlgType,DlgButtons);