Hide (esconder) um Folder em tempo de execução

Post Reply
User avatar
miragerr
Posts: 140
Joined: Tue Oct 11, 2005 2:36 am
Location: Brasil

Hide (esconder) um Folder em tempo de execução

Post by miragerr »

Ola amigos

Eu tenho assim

REDEFINE DIALOG oDlg RESOURCE .....

REDEFINE FOLDER oFld ID 5000 OF oDlg
PROMPT "&1-Produto" ,"&2-Valores de Compra/Venda" ;
DIALOGS "PRODUTO_1","PRODUTO_2";

REDEFINE GET OGqtdes VAR VMqtdes ID 109 OF oFld:aDialogs[1] PICTURE "@E 99,999.99" UPDATE FONT oFont

REDEFINE GET VMQTMEDI_ESTO ID 110 OF oFld:aDialogs[1] PICTURE "@E 99,999.99" UPDATE FONT oFont
REDEFINE GET VMSTQMIN_ESTO ID 111 OF oFld:aDialogs[1] PICTURE "@E 99,999.99" UPDATE FONT oFont
REDEFINE GET VMQTPEDI_ESTO ID 112 OF oFld:aDialogs[1] PICTURE "@E 99,999.99" UPDATE FONT oFont


REDEFINE SAY PROMPT VMDESCON_MARC ID 101 OF oFld:aDialogs[2] UPDATE
REDEFINE SAY PROMPT VMVRLUCR_MARC ID 102 OF oFld:aDialogs[2] UPDATE
REDEFINE SAY PROMPT VMVRFRET_MARC ID 103 OF oFld:aDialogs[2] UPDATE

ACTIVATE DIALOG oDlg CENTERED ON INIT
( ofld:aDialogs[2]:Hide() ) // AKI NO ME FUNCIONA

apenas limpa os SAY PROMPT mais naum apaga o PROMPT do FOLDER

como debo faze-lo

Jackson Douglas
Boa Vista - RR

FWH 2.6 LAST BUILD + XH 99.2
User avatar
Antonio Linares
Site Admin
Posts: 37481
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain
Contact:

Post by Antonio Linares »

( ofld:aDialogs[2]:Hide(), ofld:SetPrompts( { "&1-Produto" } ) )
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
miragerr
Posts: 140
Joined: Tue Oct 11, 2005 2:36 am
Location: Brasil

Post by miragerr »

Ola antonio

Funcionou 1000 maravilhas, mais agora como faço para ADICIONAR uma DIALOG na FOLDER em tempo de execução

tipo assim:

oFld:AddItem("&Teste") ok funciona

mais como faço para colocar a DIALOG ??

Jackson Douglas
Boa Vista - RR
Brasil
User avatar
Antonio Linares
Site Admin
Posts: 37481
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain
Contact:

Post by Antonio Linares »

Jackson,

Tendrias que modificar la clase TFolder de esta forma:

Code: Select all

METHOD AddItem( cItem, cResName ) CLASS TFolder

   local oDlg, nLen, n
   local oThis := Self

   DEFINE DIALOG oDlg OF Self STYLE WS_CHILD ;
      FROM 0, 0 TO oThis:nHeight - oThis:nFdHeight - 5, oThis:nWidth - 6 ; PIXEL NAME cResName
...
oFolder:AddItem( "&Teste", "test" ) // siendo test un diálogo en recurso
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
miragerr
Posts: 140
Joined: Tue Oct 11, 2005 2:36 am
Location: Brasil

Post by miragerr »

Gracias Antonio

Mais uma modificação que poderias colocar no proximo BUILD :D

Otra que poderias modificar na CLASSE TFOLDER seria a DelItem( nPrompt, cFolder ), isto é só uma ideia :D

Jackson Douglas C. Brito
Boa Vista - RR
Brasil
jponce
Posts: 193
Joined: Fri Apr 18, 2008 4:21 pm
Location: Guatemala
Contact:

Re: Hide (esconder) um Folder em tempo de execução

Post by jponce »

ok.

Les agradezco pero pero ninguna de las dos cosas me funciona para lo que yo quiero. no entiendo por que es tan complicado esconder un tab. con la opcion de Karinha me funciono pero lo unico malo es que no tengo solo 2 tabs tengo 6 tabs.

y necesito ocultar 1 de ellos segun una opcion de mi sistema.

Atenamente
Julio Ponce
Post Reply