AlrtDialog Predefined Dialogs 

Declaration:

PROCEDURE   AlrtDialog
( message:STRING ) ;

Description:

Procedure AlrtDialog creates an alert dialog displaying the specified message. The user must select the OK button to exit the dialog.

Parameters:

message The alert message to be displayed.

Example:

AlrtDialog('No objects are selected for this operation.');



  AngDialog Predefined Dialogs 

Declaration:

FUNCTION   AngDialog
(   request :STRING;
    default :STRING
) :REAL ;

Description:

Function AngDialog displays a dialog box which requests the user to enter an angle value. Parameter RequestStr specifies the prompt string for the dialog, and parameter Default specifies the default value displayed in the editable text field of the dialog. The value in this parameter is returned if the Cancel button is selected. The dialog automatically screens for valid numeric input, and will accept supported angle formats.

Example:

AngleValue := AngDialog('Enter an angle value:', '0°');



  AngDialog3D Predefined Dialogs 

Declaration:

PROCEDURE   AngDialog3D
(   displayStr :STRING;
    xStr :STRING;
    yStr :STRING;
    zStr :STRING;
  VAR  xAngleResult :REAL;
  VAR  yAngleResult :REAL;
  VAR  zAngleResult :REAL
) ;

Description:

Function AngDialog3D displays a dialog box which requests the user to enter three angle values. The parameters displayStr, xStr, yStr and zStr specify the prompt string and the default angle values which appear in the angle value edit fields. Parameters xAngle, yAngle, and zAngle return the user input values. The angle dialog box will accept angle values in any supported angle format.

Example:

AngDialog3D('Enter the angle values:','0','0','0',x,y,z);



  DidCancel Predefined Dialogs 

Declaration:

FUNCTION   DidCancel
:BOOLEAN ;

Description:

Function DidCancel detects whether the 'Cancel' button in a predefined dialog was pressed. DidCancel is intended for use with conditional statements to signal that a cancel condition has occurred.

Example:

PROCEDURE Example;
VAR
  i : INTEGER;
BEGIN
  i := IntDialog('Enter an integer:','0');
  IF NOT DidCancel THEN BEGIN
    i:=i*3;
    Message(i);
  END;
END;
RUN(Example);



  DistDialog Predefined Dialogs 

Declaration:

FUNCTION   DistDialog
(   request :STRING;
    default :STRING
) :REAL ;

Description:

Function DistDialog displays a dialog box which requests the user to enter a distance value. Parameter RequestStr specifies the prompt string for the dialog, and parameter Default specifies the default value displayed in the editable text field of the dialog. The value in this parameter is returned if the Cancel button is selected. The dialog automatically screens for valid numeric input.

Example:

DistValue := DistDialog('Enter a distance value:','0','0"');



  IntDialog Predefined Dialogs 

Declaration:

FUNCTION   IntDialog
(   request :STRING;
    default :STRING
) :INTEGER ;

Description:

Function IntDialog displays a dialog box which requests the user to enter an integer value. Parameter RequestStr specifies the prompt string for the dialog, and parameter Default specifies the default value displayed in the editable text field of the dialog. The value in this parameter is returned if the Cancel button is selected. The dialog automatically screens for valid numeric input.

Example:

distValue := IntDialog('Enter an integer value:','0');



  PtDialog Predefined Dialogs 

Declaration:

PROCEDURE   PtDialog
(   request :STRING;
    defaultX :STRING;
    defaultY :STRING;
  VAR  x :REAL;
  VAR  y :REAL
) ;

Description:

Procedure PtDialog displays a dialog box which requests the user to enter a coordinate (point) value. The parameter RequestStr specifies the prompt string which requests the information from the user, and parameters DefaultX and DefaultY specify the default x and y values which will appear in the point value editable fields. The parameters X and Y return the numeric coordinate values entered by the user.

Example:

PtDialog('Enter a coordinate.','0','0',X,Y);



  PtDialog3D Predefined Dialogs 

Declaration:

PROCEDURE   PtDialog3D
(   displayStr :STRING;
    xStr :STRING;
    yStr :STRING;
    zStr :STRING;
  VAR  xPt :REAL;
  VAR  yPt :REAL;
  VAR  zPt :REAL
) ;

Description:

Procedure PtDialog3D displays a dialog box which requests the user to enter a 3D coordinate (point) value. The parameters displayStr, xStr, yStr and zStr specify the prompt string which requests the informa-tion from the user, and the default x, y and z values which will appear in the edit fields. The parameters xPt, yPt and zPt return the numeric coordinate values entered by the user.

Example:

PtDialog3D('Enter the 3D location:','0','0','0',x,y,z);



  RealDialog Predefined Dialogs 

Declaration:

FUNCTION   RealDialog
(   request :STRING;
    default :STRING
) :REAL ;

Description:

Function RealDialog displays a dialog box which requests the user to enter a real value. Parameter RequestStr specifies the prompt string for the dialog, and parameter Default specifies the default value displayed in the editable text field of the dialog. The value in this parameter is returned if the Cancel button is selected.

The dialog automatically screens for valid numeric input.

Example:

RealValue:=RealDialog('Enter a real value:','0.00');



  StrDialog Predefined Dialogs 

Declaration:

FUNCTION   StrDialog
(   request :STRING;
    default :STRING
) :STRING ;

Description:

Function StrDialog, displays a dialog box which requests the user to enter a string value. Parameter RequestStr specifies the prompt string for the dialog, and parameter Default specifies the default value displayed in the editable text field of the dialog.

Example:

StrValue:=StrDialog('Choose a letter:
          A.This
          B.That
          C.The Other','');
{displays dialog using the format of the text in the prompt string parameter}



  YNDialog Predefined Dialogs 

Declaration:

FUNCTION   YNDialog
( s:STRING ) :BOOLEAN ;

Description:

Function YNDialog displays a dialog box which requests the user to select 'yes 'or 'no'. The parameter RequestStr specifies the prompt string which requests the information from the user. If the user chooses the 'Yes' button in the dialog box, the value of YNDialog is TRUE; if the user chooses the 'No' button, the function returns FALSE.

Example:

Answer := YNDialog('Do you wish to continue?');