ONLINE HELP
 WINDEVWEBDEV AND WINDEV MOBILE

Help / WLanguage / WLanguage functions / Controls, pages and windows / User Groupware functions
WINDEV
WindowsLinuxUniversal Windows 10 AppJavaReports and QueriesUser code (UMC)
WEBDEV
WindowsLinuxPHPWEBDEV - Browser code
WINDEV Mobile
AndroidAndroid Widget iPhone/iPadIOS WidgetApple WatchMac CatalystUniversal Windows 10 App
Others
Stored procedures
Used to get the rights granted to a control, a window, a page or a report.
Example
nState is int = gpwGetRights("MyWindow", "MyControl")
Syntax
<Result> = gpwGetRights(<Parent element> [, <Control name> [, <User> [, <Group>]]])
<Result>: Integer constant
Type of element:
gpwStateDefaultThe control has the "Default" status.
gpwStateGrayedThe control is grayed.
gpwStateInactiveThe control is inactive.
gpwStateInvisibleThe control is invisible.
<Parent element>: Character string
Name of the window, page or report containing the control.
<Control name>: Optional character string
Name of the control to be used.
<User>: Optional character string
Name of the user whose rights are requested.
<Group>: Optional boolean
  • True to find the rights granted to the group,
  • False to find the rights granted to a user.
Component: wd290gpu.dll
Minimum version required
  • Version 18
This page is also available for…
Comments
PROCEDURE evento_lista_objetos_gpw(ninstancia)
/variaiveis aux
i is int = 1
objs_form is string = ""
sControlName is string = ""
sControles is string = ""

ninstancia = ninstancia

<COMPILE IF Configuration<>"iOS application" AND Configuration<> "Android application">

IF ninstancia = 0 THEN

RESULT ""

ELSE

NomeForm is string = m_Tabela[ninstancia].gs_nomeJanela

WHEN EXCEPTION IN

sControlName = gpwEnumControl(NomeForm, i)

LOOP(5000)
// Process the control
Trace(sControlName)
// Next control
i++
sControlName = gpwEnumControl(NomeForm, i)
IF sControlName <> "" AND sControlName <> Null AND sControlName <> 0 AND sControlName <> VK_EREOF THEN
indirection is string = NoSpace(NomeForm) +"."+ NoSpace(sControlName)
IF ControlExist(sControlName) = True
sControles += indirection + "; "
END
ELSE
BREAK
END
END
RESULT sControles
DO
IF ExceptionInfo(errCode) THEN
RESULT sControles
END
END

END
<END>
Boller
02 Sep. 2023

Last update: 05/26/2022

Send a report | Local help