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.
OraForms.bdh
OraFormsEditorDialogOK( in sWindowName : string, in sValue : string ) : boolean;
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. |
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;