Luiz, The fix works as expected ?
Eduardo --- Em sex, 27/3/09, Luiz Rafael Culik Guimaraes <[email protected]> escreveu: > De: Luiz Rafael Culik Guimaraes <[email protected]> > Assunto: Re: [xHarbour-developers] Fw: possible dbedit problem > Para: "Eduardo Fernandes" <[email protected]>, "xHarbour-Developers > List" <[email protected]> > Data: Sexta-feira, 27 de Março de 2009, 10:09 > Eduardo > > Send to me , so this person can test the fix > send to [email protected] > > Regards > Luiz > ----- Original Message ----- > From: "Eduardo Fernandes" <[email protected]> > To: "xHarbour-Developers List" <[email protected]>; > > "Luiz Rafael Culik Guimaraes" <[email protected]> > Sent: Friday, March 27, 2009 10:05 AM > Subject: Re: [xHarbour-developers] Fw: possible dbedit > problem > > > Luiz, > > Fixed, but I'll commit after release. > > regards, > Eduardo > > --- Em sex, 27/3/09, Luiz Rafael Culik Guimaraes <[email protected]> > > escreveu: > > > De: Luiz Rafael Culik Guimaraes <[email protected]> > > Assunto: [xHarbour-developers] Fw: possible dbedit > problem > > Para: "xHarbour-Developers List" > > <[email protected]>, > "Eduardo Fernandes" > > <[email protected]> > > Data: Sexta-feira, 27 de Março de 2009, 9:45 > > Eduardo > > > > i get an problem from an user, , which is using > xharbour > > from current cvs, > > with dbedit . > > > > as far i know , in clipper if an udf is passed, > it first > > process the udf. > > and then if the key is not processed is passed > to normal > > processing > > > > this user reported to me, that in his dbedit > udf, the keys > > K_LEFT and > > K_RIGHT should do specific taks. > > > > with current CVS, this is not allow. > > > > This sample bellow show the problem > > /* > > * New enhanced DBEdit() test > > * > > * See how aCols[1] is an array of 2 items > > * The first is, as usual, the column data > > * The second is the codeblock that returns a > pair of > > {std,enh} colors > > * just like in tbrowse :-) > > * > > * NOTE: - Color codeblock takes a parameter > (actual data) > > * Iïve ignored > > (used SALARY instead) it here to demostrate how > > flexible a TBRowse is. > > * - Try moving columns with > > K_CTRL_UP & K_CTRL_DOWN > > * > > * Is DBEdit() deprecated? NO! > > * Enjoy > > * Mauricio <[email protected]> > > * Comments, suggestions, bugs report welcome > > * > > */ > > #include "inkey.ch" > > #include "dbedit.ch" > > > > Function Main() > > Local aCols := {{"PadR(AllTrim(FIRST)+' > > '+AllTrim(LAST),30)", {|x| > > IIf(FIELD->SALARY<10000, {3,2}, > > IIf(FIELD>SALARY<100000,{1,2},{4,5}))}},; > > > > "CITY",; > > > > "SALARY"} > > > > set scoreboard off > > > > Use test > > @maxrow(),0 say "<Ctrl-Down/Up>-Toggle > > columns <Space bar>-Edit cell" > > DBEdit(0,0,MaxRow()-1,MaxCol(), aCols, > > "TstFnc",,{"Name", "City", > > "Salary"}) > > Close > > Cls > > ? "Have a nice day ;)" > > ? > > Return Nil > > > > Function TstFnc(nMode, nCol, oTBR) > > LOCAL GetList := {} > > Local nRet := DE_CONT > > > > Do Case > > Case nMode == DE_INIT // EXTENSION: > > Initialization mode > > oTBR:colorSpec := > > "n/bg,w/n,r/bg,w+/bg,w+/gr" > > return DE_CONT > > Case nMode == DE_HITTOP > > Keyboard Chr(K_CTRL_PGDN) > > Case nMode == DE_HITBOTTOM > > Keyboard Chr(K_CTRL_PGUP) > > Case LastKey() == K_ESC > > nRet := DE_ABORT > > Case LastKey() == K_SPACE .And. > > oTBR:getColumn(nCol):heading != "Name" > > SetCursor(1) > > @ Row(), Col() Get > > &(oTBR:getColumn(nCol):heading) > > Read > > SetCursor(0) > > Clear TypeAhead > > Case lastkey()== K_LEFT .or. lastkey() == > > K_RIGHT > > Alert("Hello") <-- this > > line is never executed, since by default, it > > first process the key, insted the one defined on the > UDF > > > > End > > > > Return nRet > > > > > > Regards > > Luiz > > > > > > > ------------------------------------------------------------------------------ > > _______________________________________________ > > xHarbour-developers mailing list > > [email protected] > > https://lists.sourceforge.net/lists/listinfo/xharbour-developers > > > > > Veja quais são os assuntos do momento > no Yahoo! +Buscados > http://br.maisbuscados.yahoo.com > > ------------------------------------------------------------------------------ > _______________________________________________ > xHarbour-developers mailing list > [email protected] > https://lists.sourceforge.net/lists/listinfo/xharbour-developers > > > ------------------------------------------------------------------------------ > _______________________________________________ > xHarbour-developers mailing list > [email protected] > https://lists.sourceforge.net/lists/listinfo/xharbour-developers > Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com ------------------------------------------------------------------------------ _______________________________________________ xHarbour-developers mailing list [email protected] https://lists.sourceforge.net/lists/listinfo/xharbour-developers
