ERRor on dialog with folder

[Silvio]

I want create a simply Dialog and a folder on it ( with 3 tabs)

Code: Select all  Expand view  RUN

function EditClient( oLbx, lAppend )

   local oDlg, oFld,oFont, oFont1


   lFivePro = "F" $ Clientes->Productos
   lDialog  = "D" $ Clientes->Productos
   lObjects = "O" $ Clientes->Productos
   nNivel   = max( 1, Clientes->Nivel )

   cName    = Clientes->Nombre
   cAddress = Clientes->Direccion
   cPhone   = Clientes->Telefono
   nAge     = Clientes->Edad



   DEFINE FONT oFont NAME "Arial" SIZE 0, -8
   DEFINE FONT oFont1 NAME "Arial" SIZE 0, -68
   ShowKeyboard()

   DEFINE DIALOG oDlg  TITLE If( lAppend, "New", "Update" )

@ 0.0, 0 FOLDER oFld PROMPTS "Generale", "Dettagli", "Note" ;
SIZE 119,95


@ 0,  0 SAY "&Cliente  :" OF oFld:aDialogs[ 1 ]
@ 1,  0 SAY "&Indirizzo:" OF oFld:aDialogs[ 1 ]
@ 2,  0 SAY "&Cliente  :" OF oFld:aDialogs[ 1 ]
@ 3,  0 SAY "&Indirizzo:" OF oFld:aDialogs[ 1 ]
@ 4,  0 SAY "&Cliente  :" OF oFld:aDialogs[ 1 ]
@ 5,  0 SAY "&Indirizzo:" OF oFld:aDialogs[ 1 ]
@ 6,  0 SAY "&Cliente  :" OF oFld:aDialogs[ 1 ]
@ 7,  0 SAY "&Indirizzo:" OF oFld:aDialogs[ 1 ]

ACTIVATE DIALOG oDlg ;
ON INIT ( DlgFullScreen( oDlg:hWnd ), oDlg:SetMenu( DialogButtons() ) )
HideKeyboard()
return nil


function DialogButtons()

local oMenu

DEFINE MENU oMenu RESOURCE 102 ;
BITMAPS 10 ; // bitmap resources ID
IMAGES 2 // number of images in the bitmap

REDEFINE MENUITEM ID 110 OF oMenu ACTION MsgInfo( "OK" )
REDEFINE MENUITEM ID 120 OF oMenu ACTION MsgInfo( "Cancel" )
return oMenu

#pragma BEGINDUMP

#include <hbapi.h>
#include <windows.h>
#include <aygshell.h>

HB_FUNC( DLGFULLSCREEN )
{
SHINITDLGINFO shidi;

memset( &shidi, 0, sizeof( SHINITDLGINFO ) );

shidi.dwMask = SHIDIM_FLAGS;
shidi.hDlg = ( HWND ) hb_parnl( 1 );
shidi.dwFlags = SHIDIF_SIZEDLGFULLSCREEN;

SHInitDialog( &shidi );
}




#pragma ENDDUMP

 

the procedure not show all says controls .... why ?