Lenze PLC Designer PLC Designer (R3-1) - Manual (Page 218)

L-force | PLC Designer
Visualization
216 DMS 4.1 EN 03/2011 TD29

2. Function OnLoginDialogClosed, defining the reaction on a closing of the dialog:
FUNCTION OnLoginDialogClosed : bool
VAR_INPUT
pClientData : POINTER TO VisuStructClientData;
END_VAR
VAR
dialogMan : IDialogManager;
loginDialog : IVisualisationDialog;
pLoginInfo : POINTER TO Login_VISU_STRUCT;
result : Visu_DialogResult;
stPassword: STRING;
stUsername: STRING;
END_VAR
dialogMan := g_VisuManager.GetDialogManager(); // The DialogManager is
provided via the implicitly available VisuManager
IF dialogMan <> 0 AND pVisuClient <> 0 THEN
loginDialog := dialogMan.GetDialog('VisuDialogs.Login'); // gets the Login dialog
IF loginDialog <> 0 THEN
result := loginDialog.GetResult(); // gets the result (OK, Cancel) of the dialog
IF result = Visu_DialogResult.OK THEN
loginDialog.SetResult(Visu_DialogResult.None); // reset to default (none)
pLoginInfo := dialogMan.GetClientInterface(loginDialog, pVisuClient); // structure
Login_VISU_STRUCT gets read; in the following the structure parameters can be set
IF pLoginInfo <> 0 THEN
stPassword := pLoginInfo^.stPassword;
pLoginInfo^.stPassword := ''; // reset the password
stUsername := pLoginInfo^.stUsername;
END_IF
ELSIF result = Visu_DialogResult.Cancel THEN
loginDialog.SetResult(Visu_DialogResult.None);
// react on cancel
ELSE
// nothing to do here
END_IF
END_IF
END_IF