Folder

[Alain da Silva]

Pessoal, como se usa o Folder no five 14. Testei usando o exemplo TestFold. mas não estou conseguindo, só esta saindo a primeira aba.

#INCLUDE "FIVEWIN.CH"
#INCLUDE "XBROWSE.CH"
#INCLUDE "CORES.CH"
#INCLUDE "RIBBON.CH"
#include "Folder.ch"
#include "dbcombo.ch"

  DEFINE DIALOG dlgven2 RESOURCE "FOLDERNFE"
  dlgven2:LHELPICON := .F.  // Tira a ? da janela
*----------------------------------------------------------------------------------------*
  REDEFINE FOLDER oFld id 30 of DLGVEN2;
      PROMPT "Dados da NF Eletrônica";
      DIALOGS "MANUTNFE","MANUTNFE2"
  oFld:aEnable = { .t., .t.}
  ACTIVATE DIALOG DLGVEN2 CENTERED 

FOLDERNFE DIALOG 17, 6, 670, 378
STYLE DS_ABSALIGN | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_MAXIMIZEBOX
CAPTION "Fenix Sistem@s - Vendas"
FONT 8, "MS Sans Serif"
LANGUAGE LANG_NEUTRAL, SUBLANG_NEUTRAL
{
 PUSHBUTTON "&Salvar", 17, 54, 362, 50, 14
 PUSHBUTTON "&Cancelar", 37, 105, 362, 50, 14
 LTEXT "Chave de Acesso", 32, 76, 19, 73, 10
 LTEXT "", 33, 149, 18, 392, 12, WS_DISABLED | WS_BORDER | WS_GROUP
 LTEXT "Versão XML", 34, 547, 21, 50, 10
 CTEXT "2.0", 35, 598, 18, 52, 13, SS_CENTER | WS_DISABLED | WS_BORDER | WS_GROUP
 LTEXT "", 20, 4, 17, 60, 12, WS_BORDER | WS_GROUP
 PUSHBUTTON "Editar/Alterar", 26, 3, 362, 50, 14
 PUSHBUTTON "Validar", 13, 156, 362, 50, 14
 PUSHBUTTON "Visualizar Danfe", 29, 207, 362, 65, 14
 PUSHBUTTON "Relatórios", 19, 273, 362, 65, 14
 PUSHBUTTON "Retornar", 18, 339, 362, 65, 14
 CONTROL "TFolder", 30, "TFolder", WS_CHILD | WS_VISIBLE | WS_TABSTOP, 13, 50, 438, 267
}

[kapiaba]

\samples\testfld?.prg

[Alain da Silva]

O testfold funciona. Eu não consigo fazer funcionar no meu prg. e ele nem mostra em forma de aba.

[kapiaba]

abra o .rc e veja as propriedades. SYSTABCONTROL... alguma coisa... putz, deu branco. kkkkkkkkkk

[Alain da Silva]

Era isso mesmo Kapiaba, tinha que mudar para systabcontrol32.

obrigado