Criar GETs em Tempo de Execução

[gralak]

Ai galera não sei se alguém já precisou fazer isso mas como eu faço pra criar os GETs em tempo de execução ? :(Neg

[Toledo]

Gralak, eu não uso HwGui, mas acho que isto pode dar certo...

Código: Selecionar todos

// {Nome,Coluna,linha}
Priv aLabels:={{"Código",2,60},;
               {"Nome do Cliente",2,100},;
               {"Telefone",2,140}}


// {Nome,Variavel,Coluna,Linha,tamanho,mascara}
Priv aCampos:={{"Get_Codigo","oCodigo",60,60,50,"99999"},;
               {"Get_Nome","oNome",60,100,200,REPL("X",40)},;
               {"Get_Telefone","oTelefone",60,140,80,REPL("X",15)}}


FOR i=1 TO LEN(aLabels)
 @ aLabels[i,2], aLabels[i,3] Say aLabels[i,1]  SIZE 40,20
NEXT

FOR i=1 TO LEN(aCampos)
 @ aCampos[i,3], aCampos[i,4] Get aCampos[i,1] VAR aCampos[i,2] PICTURE aCampos[i,6] SIZE aCampos[i,5], 20
NEXT

Tenho alguma coisa semelhante com MiniGui e funciona certinho... faz um teste ai!

Ah! Eu não testei, ok?

Abraços,

[gralak]

Agora só uma duvida Como eu faço pra deletar ou deixar invisivel esses GETs já criados ? :-Y :-Y

[Toledo]

Gralak, não entendi direito o que você quis dizer em "deletar ou deixar invisível", mas para desabilitar um GET existente e não permitir sua edição, você pode fazer o seguinte:

Para desabilitar o GET Get_Telefone do meu exemplo acima:

Código: Selecionar todos

Get_Telefone:disable()

Abraços,

[gralak]

Caro amigo MODERADOR TOLEDO
A questão é que eu tenho que fazer aparecer os GETs e depois faze-los sumir da tela ?
Espero ter clariado a minha duvida ....

Aguardo Resposta ... :-Y :-Y

[esbasso]

meu caro Gralak

oGet:hide() && sumir
oGet:show() && aparecer de volta
oGet:enable() && habilita
oGet:disble() && desabilita

[gralak]

Agora sim em aahhahahaahhaha
vlw mesmo té +++++++++++ :-Y :-Y :-Y :-Y :-Y :-Y ´ ´ ´ X:) X:) X:) X:)