Finalmente Sono Felice (Ultimi Chiarimenti) URGENTEEEE
Moderator: Enrico Maria Giordano
Finalmente Sono Felice (Ultimi Chiarimenti) URGENTEEEE
Ciao a tutti,
Sono Quasi riuscito a completare la mia prima procedura su FWPPC
e mi sono reso conto che è un linguaggio veramente potente,
ho solo un problema, e mi servisebbe un chiarimento.
*problema *
su windows cee 5.0 il controllo DTPICKER
esce solo con il tasto Tab e se premo invio in questo
caso non mi spunta il messaggio perchè?????
ho fatto questa prova ma non succedde nulla
mi potete dare una mano?
*DTPICKER
@ 42, 49 DTPICKER aCtl[ 5 ] VAR NDATA OF oDlg ;
FONT aFonts[ 2 ] ;
COLORS CLR_HGREEN, nRGB( 240, 248, 255 ) SIZE 67, 11 PIXEL
aCtl[ 5 ]:bKeyDown = { | nKey | If( nKey =13, msginfo('io'), ) }
****- chiarimento ****
ho una tabella formata + o meno cosi:
codice
descrizione,
qta
vorrei creare una dialog con una listbox
che visualizza i tre campi, e se premo il tasto invio deve andare
nel campo qta e mi deve dare la possibilità di inserire la qta
come posso fare?
grazie mille
Sono Quasi riuscito a completare la mia prima procedura su FWPPC
e mi sono reso conto che è un linguaggio veramente potente,
ho solo un problema, e mi servisebbe un chiarimento.
*problema *
su windows cee 5.0 il controllo DTPICKER
esce solo con il tasto Tab e se premo invio in questo
caso non mi spunta il messaggio perchè?????
ho fatto questa prova ma non succedde nulla
mi potete dare una mano?
*DTPICKER
@ 42, 49 DTPICKER aCtl[ 5 ] VAR NDATA OF oDlg ;
FONT aFonts[ 2 ] ;
COLORS CLR_HGREEN, nRGB( 240, 248, 255 ) SIZE 67, 11 PIXEL
aCtl[ 5 ]:bKeyDown = { | nKey | If( nKey =13, msginfo('io'), ) }
****- chiarimento ****
ho una tabella formata + o meno cosi:
codice
descrizione,
qta
vorrei creare una dialog con una listbox
che visualizza i tre campi, e se premo il tasto invio deve andare
nel campo qta e mi deve dare la possibilità di inserire la qta
come posso fare?
grazie mille
per favore qualcuno mi risponde????
ho notato che anche i bottoni con le immaggini bmp
non funzionano premento il tasto invio del palmare
ma solo se si tappa sullo schermo come mai?
questo esempio funziona solo se tappo sullo schermo
se premo il tasto enter del palmare non fa nulla
aiutooooooooooo
@ 66, 80 BTNBMP oBtn[ 2 ] FILE CurDir() + "\exit.bmp" ;
SIZE 30, 30 ;
ACTION (oDlg:end())
Grazie mille a tutti,
speriamo che qualche anima gentile mi risolva questi piccoli problemi
mi riferisco anche al POST SOPRA
GRAZIE
ho notato che anche i bottoni con le immaggini bmp
non funzionano premento il tasto invio del palmare
ma solo se si tappa sullo schermo come mai?
questo esempio funziona solo se tappo sullo schermo
se premo il tasto enter del palmare non fa nulla
aiutooooooooooo
@ 66, 80 BTNBMP oBtn[ 2 ] FILE CurDir() + "\exit.bmp" ;
SIZE 30, 30 ;
ACTION (oDlg:end())
Grazie mille a tutti,
speriamo che qualche anima gentile mi risolva questi piccoli problemi
mi riferisco anche al POST SOPRA
GRAZIE
- Enrico Maria Giordano
- Posts: 7355
- Joined: Thu Oct 06, 2005 8:17 pm
- Location: Roma - Italia
- Contact:
Per queste cose ti conviene chiedere ad Antonio nel forum FWPPC in inglese.xfood wrote:per favore qualcuno mi risponde????
Devi controllare che abbiano il tabstop e che il focus sia sul tasto che vuoi premere.xfood wrote:ho notato che anche i bottoni con le immaggini bmp
non funzionano premento il tasto invio del palmare
ma solo se si tappa sullo schermo come mai?
EMG
- Enrico Maria Giordano
- Posts: 7355
- Joined: Thu Oct 06, 2005 8:17 pm
- Location: Roma - Italia
- Contact:
- Antonio Linares
- Site Admin
- Posts: 37481
- Joined: Thu Oct 06, 2005 5:47 pm
- Location: Spain
- Contact:
Grazie Mille Antonio Linares
PER Enrico Maira Giordano
mi puoi dare una dritta su questa problermatica un esempino????
ho una tabella formata cosi:
codice
descrizione,
qta
vorrei creare una dialog con una listbox
che visualizza i tre campi, e se premo il tasto invio deve andare
nel campo qta e mi deve dare la possibilità di inserire la qta,
e poi si sposta sulla riga successiva
come posso fare?
Grazie Mille
PER Enrico Maira Giordano
mi puoi dare una dritta su questa problermatica un esempino????
ho una tabella formata cosi:
codice
descrizione,
qta
vorrei creare una dialog con una listbox
che visualizza i tre campi, e se premo il tasto invio deve andare
nel campo qta e mi deve dare la possibilità di inserire la qta,
e poi si sposta sulla riga successiva
come posso fare?
Grazie Mille
- Enrico Maria Giordano
- Posts: 7355
- Joined: Thu Oct 06, 2005 8:17 pm
- Location: Roma - Italia
- Contact:
- Enrico Maria Giordano
- Posts: 7355
- Joined: Thu Oct 06, 2005 8:17 pm
- Location: Roma - Italia
- Contact:
PER Enrico Maira Giordano
mi puoi dare una dritta su questa problermatica un esempino????
ho una tabella formata cosi:
codice
descrizione,
qta
vorrei creare una dialog con una listbox
che visualizza i tre campi, e se premo il tasto invio deve andare
nel campo qta e mi deve dare la possibilità di inserire la qta,
e poi si sposta sulla riga successiva
come posso fare?
Grazie Mille
ciao Enrico,
ieri sera spulciando delle funzioni ho trovato la soluzione,
mi sembra abbastanza semplice
la posto magari a qualcuno potrebbe essere utile
#include "FWCE.ch"
REQUEST DBFCDX
//----------------------------------------------------------------------------//
function Main()
local oWnd, oBrw, hBmp := ReadBitmap( CurDir() + "\go.bmp" )
local oSay, cSearch := ""
USE ( CurDir() + "\Articoli" ) VIA "DBFCDX"
DEFINE WINDOW oWnd TITLE "IncSearch"
@ 1, 1 LISTBOX oLbx ;
FIELDS hBmp, Articoli->Codice, Articoli->Descriz,Articoli->qta ;
HEADERS "", "Codice", "Descrizione","Qta" ;
SIZE 220, 167
oLbx:bKeyChar = { | nKey, nFlags | KeyChar( oLbx, nKey, nFlags ) }
ACTIVATE WINDOW oWnd ;
ON CLICK MsgInfo( "Click!" )
return nil
static function KeyChar( oLbx, nKey, nFlags )
do case
case nKey == 13
RecModify( oLbx )
endcase
return nil
static function RecModify( oLbx )
local n := 4,nRec:=recno()
local nCols := ( oLbx:cAlias )->( FCount() )
local u := ( oLbx:cAlias )->( FieldGet( 3 ) )
oLbx:lEditCol( n, @u )
oLbx:DrawSelect()
SysRefresh()
if ( oLbx:cAlias )->( RLock() )
( oLbx:cAlias )->( FieldPut( n, u ) )
UNLOCK
go nRec
skip
else
MsgAlert( "DataBase non available" )
endif
return nil
mi puoi dare una dritta su questa problermatica un esempino????
ho una tabella formata cosi:
codice
descrizione,
qta
vorrei creare una dialog con una listbox
che visualizza i tre campi, e se premo il tasto invio deve andare
nel campo qta e mi deve dare la possibilità di inserire la qta,
e poi si sposta sulla riga successiva
come posso fare?
Grazie Mille
Enrico Maria Giordano wrote:Non è molto facile. Ti conviene aprire una finestra secondaria con le normali GET.
EMG
ciao Enrico,
ieri sera spulciando delle funzioni ho trovato la soluzione,
mi sembra abbastanza semplice
la posto magari a qualcuno potrebbe essere utile
#include "FWCE.ch"
REQUEST DBFCDX
//----------------------------------------------------------------------------//
function Main()
local oWnd, oBrw, hBmp := ReadBitmap( CurDir() + "\go.bmp" )
local oSay, cSearch := ""
USE ( CurDir() + "\Articoli" ) VIA "DBFCDX"
DEFINE WINDOW oWnd TITLE "IncSearch"
@ 1, 1 LISTBOX oLbx ;
FIELDS hBmp, Articoli->Codice, Articoli->Descriz,Articoli->qta ;
HEADERS "", "Codice", "Descrizione","Qta" ;
SIZE 220, 167
oLbx:bKeyChar = { | nKey, nFlags | KeyChar( oLbx, nKey, nFlags ) }
ACTIVATE WINDOW oWnd ;
ON CLICK MsgInfo( "Click!" )
return nil
static function KeyChar( oLbx, nKey, nFlags )
do case
case nKey == 13
RecModify( oLbx )
endcase
return nil
static function RecModify( oLbx )
local n := 4,nRec:=recno()
local nCols := ( oLbx:cAlias )->( FCount() )
local u := ( oLbx:cAlias )->( FieldGet( 3 ) )
oLbx:lEditCol( n, @u )
oLbx:DrawSelect()
SysRefresh()
if ( oLbx:cAlias )->( RLock() )
( oLbx:cAlias )->( FieldPut( n, u ) )
UNLOCK
go nRec
skip
else
MsgAlert( "DataBase non available" )
endif
return nil