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;