- 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 ?
