OraFormsVerifyInfoBoxProperty Function

Action

OraFormsVerifyInfoBoxProperty verifies a property within an Info dialog.

Include file

OraForms.bdh

Syntax

OraFormsVerifyInfoBoxProperty( in sName     : string,
                               in nProp     : number,
                               in sValue    : string,
                               in nOptions  : number,
                               in nSeverity : number := SEVERITY_ERROR ) : boolean;

Return value

true if successful
false otherwise

Parameter	Description
sName	The control's unique name.
nProp	Can be one of these constants: ORA_INFOBOX_MESSAGE ORA_INFOBOX_TITLE ORA_INFOBOX_ICON
sValue	The value to be verified.
nOptions	Can be one of these flags: ORA_VERIFY_EQUAL (default) ORA_VERIFY_NOT_EQUAL ORA_VERIFY_CASE_SENSITIVE ORA_VERIFY_IGNORE_WHITESPACES
nSeverity	Severity of the error that is raised if the verification fails. Can be one of the following values: SEVERITY_SUCCESS: Success; no error (numerical value: 0) SEVERITY_INFORMATIONAL: Informational; no error (numerical value: 1) SEVERITY_WARNING: Warning; no error (numerical value: 2) SEVERITY_ERROR: Error; simulation continues (numerical value: 3) SEVERITY_TRANS_EXIT: Error; the active transaction is aborted (numerical value: 4) SEVERITY_PROCESS_EXIT: Error; the simulation is aborted (numerical value: 5)

Example

dcltrans
  transaction TMain
  var
    sValue   : string;
  begin
    OraFormsSetConnectMode(ORA_SOCKET_CONNECTION); 
    // Connect - with connection properties
    OraFormsSetInt("INITIAL_VERSION", 608);
    OraFormsSetPoint("INITIAL_RESOLUTION", 96, 96);
    OraFormsSetPoint("INITIAL_DISP_SIZE", 1024, 768);
    OraFormsSetInt("INITIAL_COLOR_DEPTH", 256);
    OraFormsSetString("FONT_NAME", "Dialog");
    OraFormsSetPoint("INITIAL_SCALE_INFO", 8, 18);
    OraFormsSetBoolean("WINSYS_REQUIREDVA_LIST", false);
    OraFormsConnect("server module=Person3.fmx userid= useSDI=yes record=names");
    OraFormsSetWindow("Logon");
    OraFormsLogon("user", "password", "orcl_server"); 
    // ---
    // New window activated: WINDOW1
    OraFormsSetWindow("WINDOW1");
    OraFormsVerifyInfoBoxProperty("ADB Account", ORA_INFOBOX_MESSAGE, "value", ORA_VERIFY_EQUAL, SEVERITY_ERROR);
  end TMain;