PC SOFT

GRUPOS DE DISCUSSÃO PROFISSIONAL
WINDEVWEBDEV e WINDEV Mobile

Inicio → WINDEV 24 → WX - Informatica: Lendo objetos da tela
WX - Informatica: Lendo objetos da tela
Iniciado por BOLLER, mai., 13 2019 10:51 PM - Sem resposta
Membro registado
2.931 mensagems
Popularité : +89 (91 votes)
Publicado em maio, 13 2019 - 10:51 PM
// Summary: <specify the procedure action>
// Syntax:
//Screen_05_AddSubElement (<nID>, <sObjName>)
//
// Parameters:
// nID: <specify the role of nID>
// sObjName: <specify the role of sObjName>
// Return Value:
// None
//
// For instance:
// Indicate an example.
//
Procedure Screen_05_AddSubElement(nID, sObjName)

// Fill a combo box with the list of window controls
i is int = 1
ControlName01, Objetos is string
ControlName01 = EnumControl("WIN_GPU_05_Password", i, byTabOrder)

WHILE ControlName01 <> ""

i++

Objetos += ControlName01

IF nID > 0 AND sObjName <> ""

GPU_12_SoftControls.Configuration_ID = 1
GPU_12_SoftControls.Controls_ID = GPU_GetSEQ("GPU_12_SoftControls","Controls_ID")
GPU_12_SoftControls.Soft_ID = 1
GPU_12_SoftControls.WinRepProc_ID = nID
GPU_12_SoftControls.NameControl = sObjName +"."+ ControlName01
GPU_12_SoftControls.Caption = ControlName01
GPU_12_SoftControls.Type = Screen_TipoControle(ControlName01)
GPU_12_SoftControls.Status = "A"
HAdd(GPU_12_SoftControls)

// Browse the panes in a tab control sub itens
ControlName02 is string = EnumSubElement(GPU_12_SoftControls.NameControl, enumFirst + enumPane + enumAll)
WHILE ControlName02 <> ""
// Go to the next pane
ControlName02 = EnumSubElement(GPU_12_SoftControls.NameControl, enumPane + enumPane + enumAll)
GPU_12_SoftControls.Configuration_ID = 1
GPU_12_SoftControls.Controls_ID = GPU_GetSEQ("GPU_12_SoftControls","Controls_ID")
GPU_12_SoftControls.Soft_ID = 1
GPU_12_SoftControls.WinRepProc_ID = nID
GPU_12_SoftControls.NameControl = sObjName +"."+ ControlName02
GPU_12_SoftControls.Caption = ControlName02
GPU_12_SoftControls.Type = Screen_TipoControle(ControlName02)
GPU_12_SoftControls.Status = "A"
HAdd(GPU_12_SoftControls)
END


END

ControlName01 = EnumControl(sObjName, i)

END


--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 99949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/