FiveTech Software tech support forums

... " ACTION ::SELECT(0) end if ::nMarqueeStyle == MARQSTYLE_HIGHLROW MENUITEM "双击鼠标,本行拖入单据主表" ACTION EVAL(::BLDBLClick) WHEN !EVAL(::beof()) end if ::bkeydown<>nil.and.::nMarqueeStyle==MARQSTYLE_HIGHLCELL MENUITEM "添加新行 Insert" ACTION EVAL(::bkeydown,VK_INSERT) WHEN ...

... properly supports the vertical scrollbar: http://forums.fivetechsupport.com/viewtopic.php?p=213460#p213460 * function SummaryDataAsTree( bSkip, bEof, aGroups, bCargo ) in trees.prg enhanced. Can be used to automatically create a tree object from any sorted datasource. Mainly used as support ...

... properly supports the vertical scrollbar: http://forums.fivetechsupport.com/viewtopic.php?p=213460#p213460 * function SummaryDataAsTree( bSkip, bEof, aGroups, bCargo ) in trees.prg enhanced. Can be used to automatically create a tree object from any sorted datasource. Mainly used as support ...

Rao Interesting idea ... however ... I only want the AddNewRow() to fire when arrow down hits bEof .. when a user scrolls down the vertical bar .. they hit the bEof code block multiple times ..same for the mouse wheel and I end up with a mess. If there was only a way to ...

... UserEdit( oRec ) } If assigned, used to edit current/new record with ::Record() object as parameter. See ::Record() and ::Edit() methods. 6. bEoF ( Type: "B" ): If assigned, executes when EOF() is true 7. bNetError ( Type: "B" ): Optional. If assigned, evaluated when record ...

... )->( DbGoBottom() ) },; ::bSkip := {| n | ( ::cAlias )->( DbSkipper( IfNil( n, 1 ) ) ) },; ::bBof := {|| ( ::cAlias )->( Bof() ) },; ::bEof := {|| ( ::cAlias )->( Eof() ) },; ::bBookMark := {| n | iif( n == nil .or. n == 0 ,; ( ::cAlias )->( RecNo() ) ,; ( ::cAlias )->( DbGoto( ...

... CLASS TDb DATA nArea AS NUMERIC INIT 0 DATA lBuffer DATA lShared AS LOGICAL INIT .t. DATA aBuffer DATA bBoF, bEoF, bNetError AS CODEBLOCK DATA cAlias, cFile, cDriver AS String INIT "" DATA lReadOnly AS LOGICAL INIT .f. DATA lOemAnsi DATA lTenChars ...

... := Min( Max( ::nArrayAt, 1 ), Eval( ::bKeyCount ) ), ; Eval( ::bOnSkip, Self ), ; ::nArrayAt - nOld }, ; ::bBof := { || ::nArrayAt < 1 }, ; ::bEof := { || ::nArrayAt > Eval( ::bKeyCount ) }, ; ::bBookMark := { | n | If( n == nil, ::nArrayAt, ; ( ::nArrayAt := n, Eval( ::bOnSkip, Self ), ...

Perdón

(oSal:BEOF()) := {|| nil}

Encontré unos scripts en el directorio de xdev studios, uno fivewinxcompiler y los estoy modificando. con los nuevos archivos..

Esto va para largo

oSal:BEOF() := {|| nil} para poder compilarlo lo comente, si saben como hay que ponerlo puede ser así:

(oSal:BEOF() := {|| nil})

Luis

Otra consulta al compilar con xDevstudio, en esta línea :

oSal:BEOF() := {|| nil}

me da el error Valor Inválido

Siempre lo utilizé así en xharbour y no hubo problemas al compilar

Luis

Bayron puedes usar los codeblock bBof y bEof de la clase TDolphinQry DATA bBof,;        //codeblock to evaluate if the value is the first row         bEof,;        //codeblock to ...

... := {|| rs:moveFirst() } oBrw:bGoBottom := {|| rs:moveLast() } oBrw:bSkip := {| n | rsSkipper( n, rs ) } oBrw:bBof := {|| rs:Bof() } oBrw:bEof := {|| rs:Eof() } oBrw:bBookMark := {| bmNew | IIF( bmNew == NIL, rs:bookMark, rs:bookMark := bmNew) } oBrw:bKeyNo := {|| rs:AbsolutePosition } ...

... := {|| rs:moveFirst() } oBrw:bGoBottom := {|| rs:moveLast() } oBrw:bSkip := {| n | rsSkipper( n, rs ) } oBrw:bBof := {|| rs:Bof() } oBrw:bEof := {|| rs:Eof() } oBrw:bBookMark := {| bmNew | IIF( bmNew == NIL, rs:bookMark, rs:bookMark := bmNew) } oBrw:bKeyNo := {|| rs:AbsolutePosition } ...

... oDlg ) oLBX:SetRDD() oLbx:CreateFromResource( 107 ) // setxbrowse( oLbx, oQry ) //William clase tymsql /*/ oLbx:bBof := { || oQry:Bof() } oLbx:bEof := { || oQry:Eof() } oLbx:bBookMark :={ | n | if( n == nil, oQry:RecNo(), oQry:GoTo( n ) ) } oLbx:bKeyNo := { || oQry:RecNo() } oLbx:bKeyCount ...