PC SOFT

PROFESSIONAL NEWSGROUPS
WINDEVWEBDEV and WINDEV Mobile

Home → WINDEV 25 → Criando objetos em Runtime
Criando objetos em Runtime
Started by Boller, Dec., 21 2021 6:50 PM - 2 replies
Registered member
3,410 messages
Popularité : +175 (223 votes)
Posted on December, 21 2021 - 6:50 PM
Solução

// Summary: <specify the procedure action>
// Syntax:
//CreateCamposRuntime (<gNomeRelatorio>, <gParametersReletario>)
//
// Parameters:
// gNomeRelatorio:
// gParametersReletario: <specify the role of gParametersReletario>
// Example:
// <Specify a usage example>
//
Procedure CreateCamposRuntime(gNomeRelatorio, gParametersReletario)

OBJ is string

xControl is Control

i,y is int = 0

total is int = StringCount(gParametersReletario,";",IgnoreCase)

//TITULO

OBJ = "SC_AreaPlotagem.STC_TextoX"
xControl <- ControlClone(STC_Texto, OBJ)
xControl.Width = STC_Texto.Width
xControl.X = 30
xControl.Y = 30
xControl.Caption = gNomeRelatorio

//CAMPOS
LOOP (total)
i++
IF i = 1 THEN
y = 75
ELSE
y+= 35
END
OBJ = "SC_AreaPlotagem.EDT_"+ NoSpace(ExtractString(gParametersReletario, i, ";", FromBeginning),sscAll)
xControl <- ControlClone(EDT_Texto, OBJ)
xControl.Width = EDT_Texto.Width
xControl.X = 35
xControl.Y = y
xControl.Caption = ExtractString(gParametersReletario, i, ";", FromBeginning)
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/
Registered member
3,410 messages
Popularité : +175 (223 votes)
Posted on December, 21 2021 - 7:11 PM




--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 99949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/
Registered member
3,410 messages
Popularité : +175 (223 votes)
Posted on December, 21 2021 - 7:13 PM




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