Page 1 of 1

Finalmente Sono Felice (Ultimi Chiarimenti) URGENTEEEE

PostPosted: Fri Jul 11, 2008 9:36 am
by xfood
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

PostPosted: Fri Jul 11, 2008 4:24 pm
by xfood
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

PostPosted: Sat Jul 12, 2008 9:58 am
by Enrico Maria Giordano
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

PostPosted: Sat Jul 12, 2008 10:13 am
by xfood
scusami,
cosa vuol dire "Devi controllare che abbiano il tabstop"
da dove lo controllo
grazie mille

PostPosted: Sat Jul 12, 2008 11:43 am
by Enrico Maria Giordano
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

PostPosted: Sat Jul 12, 2008 1:26 pm
by Antonio Linares

PostPosted: Sat Jul 12, 2008 4:05 pm
by xfood
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

PostPosted: Sat Jul 12, 2008 4:07 pm
by Enrico Maria Giordano
Non è molto facile. Ti conviene aprire una finestra secondaria con le normali GET.

EMG

PostPosted: Sat Jul 12, 2008 4:08 pm
by Enrico Maria Giordano
Altrimenti guardati i metodi lEditCol() o EditCol() ma non so se e come siano implementati in FWPPC.

EMG

PostPosted: Tue Jul 15, 2008 6:10 am
by xfood
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