dlgEvent_OnActionQuery
Function called to overwrite a predefined action to query a dialog.
Syntax
PUBLIC FUNCTION dlgEvent_OnActionQuery(
dlg ui.DIALOG,
uiMode SMALLINT,
dlgCtrlInstruction libdbappEvents.DlgCtrlInstruction_Type)
RETURNS (libdbappEvents.DlgCtrlInstruction_Type)
dlg
. This is aui.DIALOG
object referencing the current dialog. The dialog can implement anINPUT
,INPUT ARRAY
,DISPLAY ARRAY
,MENU
, orCONSTRUCT
. For more information, see The Dialog class in Genero Business Development Language User Guide.uiMode
. This is an integer value defining the current mode or state in relation to user action in the dialog, form, or application. Modes are defined as constants in the libdbappFormUI file in the libdbapp library.Table 1. UI modes Description Applies to ... Constant Value Display DISPLAY ARRAY
C_MODE_DISPLAY 1 Modify INPUT \ INPUT ARRAY
C_MODE_MODIFY 2 Add INPUT \ INPUT ARRAY
C_MODE_ADD 3 Search CONSTRUCT
C_MODE_SEARCH 4 Empty MENU
C_MODE_EMPTY 5 Exit form The form C_MODE_EXIT_FORM 6 Exit app The app C_MODE_EXIT_APP 7 Undefined All (array, form, or app) C_MODE_UNDEFINED 0 dlgCtrlInstruction
is a libdbappEvents.DlgCtrlInstruction_Type defining the dialog control instruction.Instructions available will vary depending on theuiMode
:Table 2. Dialog control instructions for display/modify/add/search modes Description Constant Value Accept dialog ACCEPT_DIALOG
1 Continue dialog CONTINUE_DIALOG
2 Exit dialog EXIT_DIALOG
3 Table 3. Dialog control instructions for empty mode Description Constant Value Continue menu CONTINUE_MENU
4 Exit menu EXIT_DIALOG
5
The function returns a dialog control instruction value defined by libdbappEvents.DlgCtrlInstruction_Type
.
Usage
When you select the On Action Query property for the creation of the event, a function shell is created. Enter your code in the function.
Use this function to overwrite a predefined action to query by example in DISPLAY
ARRAY
, INPUT [ARRAY]
, and MENU
blocks
(corresponds to the "DISPLAY", "MODIFY|ADD" and "EMPTY" UI modes).
Example: On Action Query
This example uses the On Action Query code event for the Account form in the OfficeStore demo.
In this example if the current mode is C_MODE_ADD
, the function
restoreRequiredElementStyle
is called to restore original
presentation styles to form elements.
restoreRequiredElementStyle
function references two user-defined
parameters:m_frmElements
stores the name of some elements in the formm_frmElementsStyle
stores the original presentation styles of them_frmElements
elements
The EXIT_DIALOG is executed when the dialog is queried (dlgCtrlInstruction =
libdbappEvents.EXIT_DIALOG
). This overwrites the default behavior,
which is to execute ACCEPT DIALOG in MODIFY mode and in ADD mode only if the dialog
has been touched. This code is used to skip the validation of a field when you press
the "Search" button.
# AccountForm.4gl
-- import user-defined functions
IMPORT FGL myAccountFunc
# user defined module variables
DEFINE m_frmElements DYNAMIC ARRAY OF STRING =
["account_userid_label1", "account_lastname_label1", "account_email_label1", "account_state_label1"]
-- form elements
DEFINE m_frmElementsStyle DYNAMIC ARRAY OF STRING --Saved styles
# ...
PUBLIC FUNCTION dlgEvent_OnActionQuery(dlg ui.DIALOG, uiMode SMALLINT,
dlgCtrlInstruction libdbappEvents.DlgCtrlInstruction_Type)
RETURNS (libdbappEvents.DlgCtrlInstruction_Type)
DISPLAY "dlgEvent_OnActionQuery (Form scope) is raised"
IF uiMode == libdbappFormUI.C_MODE_ADD THEN
CALL myAccountFunc.restoreRequiredElementStyle(dlg, m_frmElements, m_frmElementsStyle)
LET dlgCtrlInstruction = libdbappEvents.EXIT_DIALOG
END IF
RETURN dlgCtrlInstruction
END FUNCTION
restoreRequiredElementStyle
In this section there is an example of the user-defined function
restoreRequiredElementStyle
called to restore the original
presentation styles.
restoreRequiredElementStyle
function references two
parameters:- The
lbllist
array that stores a list of form elements. - The
lblStylelist
array that stores the original presentation styles oflbllist
.
IMPORT FGL
statement.# MyAccountFunc.4gl
FUNCTION restoreRequiredElementStyle(dlg ui.Dialog, lbllist DYNAMIC ARRAY OF STRING,
lblStylelist DYNAMIC ARRAY OF STRING)
DEFINE i INTEGER
FOR i = 1 TO lbllist.getLength()
CALL dlg.getForm().setElementStyle(lbllist[i], lblStylelist[i])
END FOR
END FUNCTION