FiveTech Software tech support forums

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

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

xfood wrote:per favore qualcuno mi risponde????

Per queste cose ti conviene chiedere ad Antonio nel forum FWPPC in inglese.

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?

Devi controllare che abbiano il tabstop e che il focus sia sul tasto che vuoi premere.

EMG

scusami,
cosa vuol dire "Devi controllare che abbiano il tabstop"
da dove lo controllo
grazie mille

Vedi se il focus va sul pulsante. Se ci va, portacelo e poi premi Enter. Se non ci va vuol dire che non ha il tabstop. Ma credo che i pulsanti creati con il comando @ riga, colonna BTNBMP ce l'abbiano di default.

EMG

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

Non è molto facile. Ti conviene aprire una finestra secondaria con le normali GET.

EMG

Altrimenti guardati i metodi lEditCol() o EditCol() ma non so se e come siano implementati in FWPPC.

EMG

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