At 09:26 PM 6/10/2005, Bernie Lis wrote:
Anyone know how I can display a pause 3 command and a
dialog command just below the pause 3 command.
Bernie,
Try the Multi-Line DIALOG command!
Here's how:
-- start
CLS
CLEAR VAR vCaption, vMsg, vYesNo, vEndKey
SET VAR vCaption TEXT = ' Multi-Line Dialog with Custom Buttons'
SET VAR vMsg TEXT = NULL
SET VAR vYesNo TEXT = NULL
SET VAR vEndKey TEXT = NULL
SET VAR vMsg = +
('Line 1:'+(CHAR(009))+(CHAR(009))&'Contents of Line
1'+(CHAR(009))+(CHAR(013))+ +
'Line 2:'+(CHAR(009))+(CHAR(009))&'Contents of Line
2'+(CHAR(009))+(CHAR(013))+ +
'Line 3:'+(CHAR(009))+(CHAR(009))&'Contents of Line
3'+(CHAR(009))+(CHAR(013))+ +
'Line 4:'+(CHAR(009))+(CHAR(009))&'Contents of Line
4'+(CHAR(009))+(CHAR(013))+ +
'Line 5:'+(CHAR(009))+(CHAR(009))&'Contents of Line
5'+(CHAR(009))+(CHAR(013))+ +
'Line 6:'+(CHAR(009))+(CHAR(009))&'Contents of Line
6'+(CHAR(009))+(CHAR(013))+ +
'Line 7:'+(CHAR(009))+(CHAR(009))&'Contents of Line
7'+(CHAR(009))+(CHAR(013))+ +
'Line 8:'+(CHAR(009))+(CHAR(009))&'Contents of Line
8'+(CHAR(009))+(CHAR(013))+ +
'Line 9:'+(CHAR(009))+(CHAR(009))&'Contents of Line
9'+(CHAR(009))+(CHAR(013)))
CLS
DIALOG .vMsg vYesNo vEndKey YES +
CAPTION .vCaption +
ICON APP +
OPTION TITLE_FONT_COLOR BLACK +
|TITLE_BACK_COLOR WHITE +
|TRANSPARENCY 255 +
|WINDOW_BACK_COLOR WHITE +
|BUTTON_YES_CAPTION &Start +
|BUTTON_NO_CAPTION &Cancel +
|BUTTON_YES_COLOR GREEN +
|BUTTON_NO_COLOR RED +
|BUTTON_YES_FONT_COLOR WHITE +
|BUTTON_NO_FONT_COLOR WHITE
IF vYesNo IS NULL OR vEndKey = '[Esc]' THEN
SET VAR vMsg = ((CHAR(009))+'[Esc] key was
pressed!'+(CHAR(009))+(CHAR(009)))
PAUSE 2 USING .vMsg CAPTION .vCaption +
ICON APP Button 'Press any key to continue ...' +
OPTION BACK_COLOR WHITE +
|MESSAGE_COLOR WHITE +
|MESSAGE_FONT_COLOR GREEN +
|BUTTON_COLOR WHITE +
|BUTTON_FONT_COLOR GREEN
GOTO Done
ENDIF
IF vYesNo = 'No' THEN
SET VAR vMsg = ((CHAR(009))+'[Cancel] button was
pressed!'+(CHAR(009))+(CHAR(009)))
PAUSE 2 USING .vMsg CAPTION .vCaption +
ICON APP Button 'Press any key to continue ...' +
OPTION BACK_COLOR WHITE +
|MESSAGE_COLOR WHITE +
|MESSAGE_FONT_COLOR GREEN +
|BUTTON_COLOR WHITE +
|BUTTON_FONT_COLOR GREEN
GOTO Done
ENDIF
IF vYesNo = 'Yes' THEN
SET VAR vMsg = ((CHAR(009))+'[Start] button was
pressed!'+(CHAR(009))+(CHAR(009)))
PAUSE 2 USING .vMsg CAPTION .vCaption +
ICON APP Button 'Press any key to continue ...' +
OPTION BACK_COLOR WHITE +
|MESSAGE_COLOR WHITE +
|MESSAGE_FONT_COLOR GREEN +
|BUTTON_COLOR WHITE +
|BUTTON_FONT_COLOR GREEN
GOTO Done
ENDIF
LABEL Done
CLEAR VAR vCaption, vMsg, vYesNo, vEndKey
RETURN
-- end
For more samples: http://www.razzak.com/sampleapplications
. Multi-Line DIALOG with Custom Buttons (item# 010)
. Multi-Line PAUSE with Custom Buttons (item# 011)
Have fun!
Very Best R:egards,
Razzak.
