dlgEvent_OnOpenForm
Function called on open form event.
Syntax
PUBLIC FUNCTION dlgEvent_OnOpenForm(
currentForm ui.FORM )
The function has one parameter:
currentForm
. This is aui.FORM
object referencing the current form. For more information, see The Form class in Genero Business Development Language User Guide.
Usage
When you select the On Open Form property for the creation of the event, a function shell is created. Enter your code in the function.
This function is called to initialize the form by changing the appearance or behavior of items in the form.
Example: On Open Form
This example uses the On Open Form code event for the Account form in the OfficeStore demo.
In this example, the function sets the window title text. There is a call to the user-defined
function saveDefaultStyles
to store the original presentation
styles of some form elements.
If presentation styles may be changed, for example, to highlight required elements when adding a new record (dlgEvent_OnActionNew), the original presentation styles must be saved here in the On Open Form. Later the original presentation styles can be restored, as shown in the code sample in dlgEvent_OnActionAccept, dlgEvent_OnActionCancel, and dlgEvent_OnActionQuery events.
m_frmElements
is set with the name of some elements in the form.m_frmElementsStyle
stores the original presentation styles of them_frmElements
elements in the call to thesaveDefaultStyles
function.
# 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_OnOpenForm(currentForm ui.form)
DEFINE w ui.Window
DEFINE n om.DomNode
DISPLAY "dlgEvent_OnOpenForm (Form scope) is raised"
LET w = ui.Window.getCurrent()
CALL w.setText("Customer accounts")
CALL myAccountFunc.saveDefaultStyles(currentForm,m_frmElements,m_frmElementsStyle)
DISPLAY "dlgEvent_OnOpenForm (Form scope) is exited"
END FUNCTION
In this section there is an example of the function saveDefaultStyles
called to store the original presentation styles of some form elements.
saveDefaultStyles
function references two parameters:- The
lbllist
array that stores a list of form elements. - The
lblStylelist
array where it stores the original presentation styles oflbllist
.
IMPORT FGL
statement.# MyAccountFunc.4gl
FUNCTION saveDefaultStyles(currentForm ui.Form, lbllist DYNAMIC ARRAY OF STRING,
lblStylelist DYNAMIC ARRAY OF STRING)
DEFINE i INTEGER
DEFINE n om.DomNode
FOR i = 1 TO lbllist.getLength()
LET n = currentForm.findNode("Label", lbllist[i])
LET lblStylelist[i] = n.getAttribute("style")
END FOR
END FUNCTION