OraFormsEditorDialogOK Function

Action

Text controls allow you to open an editor dialog to edit the value of the control in a more advanced way. OraFormsEditorDialogOK closes this dialog and returns the edited value to the text control.

Include file

OraForms.bdh

Syntax

OraFormsEditorDialogOK( in sWindowName : string,
                        in sValue : string ) : boolean;

Return value

true if successful
false otherwise

Parameter	Description
sWindowName	Name of the editor dialog window that should be closed.
sValue	The edited value that should be returned to the text control.

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"); 
    OraFormsMenuItem( "WINDOW1",  "Edit::Edit");
    // --- 
    // New window activated: Editor OraFormsSetWindow( "Editor"); 
    OraFormsEditorDialogOK( "Editor",  "Edited value"); 
    // --- 
    // New window activated: WINDOW1 
    OraFormsSetWindow( "WINDOW1"); 
    OraFormsMenuItem( "WINDOW1",  "Action::Exit"); 
  end TMain;