Problems :hide() with ReDefine Folder - Antonio Linares

[ericmagaldi]

Olá Antonio.

Como fazer para ocultar uma guia do TFolder ?
Sem precisar eliminar/recarregar.

Code: Select all  Expand view

...
       Redefine FOLDER oFld ;
                ID 4003     ;
                OF ::oDlgCliente ;
                ITEMS 'Gera&l', '&Pessoa Física', '&Endereços', 'Dados &Fiscais' ;
                DIALOGS 'CDT_CLIENTE_GERAL', 'CDT_CLIENTE_FISICA', 'CDT_CLIENTE_ENDERECO', 'CDT_CLIENTE_FISCAL'

...
    // Isso não funciona
     oFld:aDialogs[2]:Hide()


Obrigado.

[Richard Chidiak]

Eric

Try something like this

oFld:aEnable[2]:=.F.

Hth

Richard

[ericmagaldi]

Obrigado Richard

A minha necessidade é ocultar, e não desabilitar.

[Richard Chidiak]

Eric

I understand

I have not found how to hide a folder dialog neither. What i do is the following

local dlib

Redefine FOLDER oFld ;
ID 4003 ;
OF ::oDlgCliente ;
ITEMS 'Gera&l', dlib, '&Endereços', 'Dados &Fiscais' ;
DIALOGS 'CDT_CLIENTE_GERAL', 'CDT_CLIENTE_FISICA', 'CDT_CLIENTE_ENDERECO', 'CDT_CLIENTE_FISCAL'


If
dlib := ....
else
dlib := nil
oFld:aEnable[2]:=.F.
endif

the title is not visible though the "place allocated" for the dialog does not disappear.

HTH

Richard

[Antonio Linares]

Éric,

The Windows API does not provide a function to hide a tab of the folder.

You may need to rebuild it again without such tab