[RBG7-L] - Re: Dialog Box Size

[A. Razzak Memon]

At 12:42 PM 7/29/2004 -0400, Joel Solomon wrote:
I have a dialog box that needs to be wider than the default size.
I set up the following command but the size does not increase
  DIALOG 'Exit ?'=100 vYesNo vEndKey YES CAPTION  +
  'You are not authorized for this action' ICON ERROR
What am I doing wrong?

Joel,
Try the following example:
-- YesNoDialog.RMD
-- Author: A. Razzak Memon
CLEAR VAR vYesNo, vEndKey
LABEL Start
CLS
DIALOG 'Exit?'vYesNo vEndKey YES +
CAPTION ' ' +
ICON CONFIRM +
OPTION TITLE_FONT_COLOR BLACK +
|TITLE_BACK_COLOR WHITE +
|TRANSPARENCY 255 +
|WINDOW_BACK_COLOR WHITE +
|BUTTON_YES_CAPTION &Yes +
|BUTTON_NO_CAPTION &No +
|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
   GOTO Start
ENDIF
IF vYesNo = 'Yes' THEN
   PAUSE 2 USING 'Do what you have to do here ...' ICON INFO
   GOTO Done
ENDIF
IF vYesNo = 'No' THEN
   PAUSE 2 USING 'Do what you have to do here ...' ICON INFO
   GOTO Done
ENDIF
LABEL Done
CLEAR VAR vYesNo, vEndKey
RETURN
Check R:Docs for more examples, Dialog Builder and templates.
Very Best R:egards,
Razzak.