OraFormsVerifySelectedTreeItem Function

Action

Verifies the selected tree node of a tree control with a provided value.

Include file

OraForms.bdh

Syntax

OraFormsVerifySelectedTreeItem( in sName     : string, 
                                in sItem     : string, 
                                in nOptions  : number optional, 
                                in nSeverity : number optional := SEVERITY_ERROR ) : boolean;

Return value

true if successful
false otherwise

Parameter	Description
sName	The control's unique name.
sItem	The value to compare the selected value against.
nOptions	Can be one of these flags: ORA_VERIFY_EQUAL (default) ORA_VERIFY_NOT_EQUAL
nSeverity	Optional: 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: (Default) 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

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"); 
  OraFormsMenuItem( "WINDOW1",  "Query::Execute Query"); 
  OraFormsVerifySelectedTreeItem( "TREE_01",  "Node 1", ORA_VERIFY_EQUAL, SEVERITY_WARNING); 
  OraFormsMenuItem( "WINDOW1",  "Action::Exit"); 
end TMain;