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?');