If you want to use the MessageBox Function, I have an RMD file with all the constants to make it display all the different icon / button combinations. The system MessageBox can display 3 buttons, specifying the default button, and it CAN take as one of the arguments, the HANDLE of the RBase form that is calling it, to keep it MODAL and Visible with that form, and as you can guess, since it is a function, it can return a value based on the button pressed.....
----- Original Message ----- From: "Mike Byerley" <[email protected]> To: "RBASE-L Mailing List" <[email protected]> Sent: Wednesday, May 29, 2013 2:06 PM Subject: [RBASE-L] - Re: Pause Command: Window Width : Try This: : : IF (Chkfunc('MessageBox')) = 0 THEN : -- MsgTYPE , Caption text, MsgString, WndHandle of Parent : STDCALL Function 'MessageBoxA' alias 'MessageBox' + : (INTEGER, PTR TEXT (128), PTR TEXT, INTEGER ) : INTEGER : ENDIF : SET VAR vCaption TEXT = 'Test Message Box Caption With An Impossibly Long : Caption That Runs Almost All Across The Screen' : SET VAR vMsg TEXT = ('ShortMessage') : SET VAR viRes = (DLCALL('User32', 'MessageBoxA', 49, vCaption, vMsg, 0)) : RETURN : : : ----- Original Message ----- : From: "Bruce A. Chitiea" <[email protected]> : To: "RBASE-L Mailing List" <[email protected]> : Sent: Wednesday, May 29, 2013 11:46 AM : Subject: [RBASE-L] - Pause Command: Window Width : : :: :: :: All: :: :: :: :: Rbase e9.5(64) su :: :: Win 7 pro :: :: :: :: The following representative PAUSE command: :: :: :: :: PAUSE 2 USING 'Blah Blah' + :: :: CAPTION 'Who writes captions this long??' :: :: :: :: .sizes the PAUSE window for the short message, truncating the caption. :: :: :: :: The same message with the width parameter: :: :: :: :: PAUSE 2 USING 'Blah Blah' =50 + :: :: CAPTION 'Who writes captions this long??' :: :: :: :: .produces the same result, if for no other reason than that there's : nothing :: to wrap. :: :: :: :: No difference if the message and caption are fed through variables. :: :: :: :: Thoughts? :: :: :: :: Bruce Chitiea :: :: SafeSectors, Inc. :: :: eCondoMetrics :: :: : :
