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

Posts: 140

Joined: Tue Oct 11, 2005 02:36 AM

Hide (esconder) um Folder em tempo de execução
Posted: Sun Mar 26, 2006 04:02 AM

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

Jackson Douglas C. Brito

Boa Vista - RR - Brasil

FWH 12.09 Last Build

xHarbour Free

UESTUDIO

SQLRDD

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Hide (esconder) um Folder em tempo de execução
Posted: Sun Mar 26, 2006 08:08 AM

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

regards, saludos

Antonio Linares
www.fivetechsoft.com

miragerr

Posts: 140

Joined: Tue Oct 11, 2005 02:36 AM

Hide (esconder) um Folder em tempo de execução
Posted: Sun Mar 26, 2006 03:30 PM

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

Jackson Douglas C. Brito

Boa Vista - RR - Brasil

FWH 12.09 Last Build

xHarbour Free

UESTUDIO

SQLRDD

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Hide (esconder) um Folder em tempo de execução
Posted: Tue Mar 28, 2006 05:01 PM

Jackson,

Tendrias que modificar la clase TFolder de esta forma:

Code: Select all Collapse

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

miragerr

Posts: 140

Joined: Tue Oct 11, 2005 02:36 AM

Hide (esconder) um Folder em tempo de execução
Posted: Wed Mar 29, 2006 12:42 AM

Gracias Antonio

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

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

Jackson Douglas C. Brito
Boa Vista - RR
Brasil

Jackson Douglas C. Brito

Boa Vista - RR - Brasil

FWH 12.09 Last Build

xHarbour Free

UESTUDIO

SQLRDD

jponce

Posts: 199

Joined: Fri Apr 18, 2008 04:21 PM

Re: Hide (esconder) um Folder em tempo de execução
Posted: Wed Oct 14, 2009 10:21 PM

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

FiveTech Support Forums

Continue the discussion