FiveTech Software tech support forums

... MoveCalendar( oDlg, nMode, nVar) local dSelect := oDlg:Cargo local n local nFirstButton := 0 local nLastButton := 0 local nDate := 0 local nSkip := 0 local nPDate := 0 local nPYear := 0 local nDay, nMonth, nYear local dWork local nDays := 0 for n := 1 TO Len( oDlg:aControls ) if oDlg:aControls[ ...

... = { || oRS1Cli:RecordCount } oBrow:bGoTop = { || oRS1Cli:MoveFirst() } oBrow:bGoBottom = { || oRS1Cli:MoveLast() } oBrow:bSkip = { | nSkip | Skipper( oRs1Cli, nSkip ) } oBrow:lcellstyle := .f. oBrow:nlinestyle := 2 oBrow:nclrpane := { || iif( ( oRS1Cli:AbsolutePosition / 2 ) - INT( ...

... a "extra" Column in Result-Set which is like OrdKeyNo() this is useful when want to "SKIP" (in Order) in SQL Table if "nSkip" is > FIELD row_number() it need call o:NextCursor() i "think" i can "translate" my Xbase++ CLASS Code into harbour ...

... AfterAtNum(<cSearch>,<cString>,[<nCount>],[<nSkipChars>])->cResult AIns(<aTarget>,<nPosition>,[<xValue>],[<lGrow>])->aTarget ALenAlloc(aArray>)->nElements ...

... los registros capturados, luego a veces marca error en el TWBROWSE:PAINT Alguien sabe porque ? METHOD Paint() CLASS TWBrowse local n := 1, nSkipped := 1, nLines local nSkip, nRealSkip local aInfo _WBRWSET_ if ::lIconView ::DrawIcons() return 0 endif CursorWait() aInfo:= ::DispBegin() if ...

Rick, revisa el METHOD SetArray( aData, lAutoOrder, nColOrder, aCols, bOnSkip ) CLASS TXBrowse, saludos... :shock: DEFAULT ::bGoTop := { || ::nArrayAt := Min( 1, Eval( ::bKeyCount ) ), Eval( ::bOnSkip, Self ) }, ; ::bGoBottom := { || ::nArrayAt := Eval( ::bKeyCount ...

... PIXEL oLbx:bLogicLen = { || oSql:RecordCount } oLbx:bGoTop = { || oSql:MoveFirst() } oLbx:bGoBottom = { || oSql:MoveLast() } oLbx:bSkip = { | nSkip | Skipper( oSql, nSkip ) } oLbx:cAlias = "ARRAY1" // Refresh routine... //----------------------------------------------------------------------------// ...

... ; OF oDlg oLbx:bLogicLen = { || oSql:RecordCount } oLbx:bGoTop = { || oSql:MoveFirst() } oLbx:bGoBottom = { || oSql:MoveLast() } oLbx:bSkip = { | nSkip | Skipper( oSql, nSkip ) } oLbx:cAlias = "ARRAY1" ACTIVATE DIALOG oDlg ON INIT ( oDlg:SetControl( oLbx ), Sysrefresh() ) // Disconnecting ...

... User" oLbx:bLogicLen = { || oSql:RecordCount } oLbx:bGoTop = { || oSql:MoveFirst() } oLbx:bGoBottom = { || oSql:MoveLast() } oLbx:bSkip = { | nSkip | Skipper( oSql, nSkip ) } oLbx:cAlias = "ARRAY1" ACTIVATE DIALOG oDlg ON INIT ( oDlg:SetControl( oLbx ), Sysrefresh() ) // Disconnecting ...

... * Enhancement: Class TExlorerList. + New DATA bChange: codeblock to evaluate when item selected is changed by keyboard + New METHOD GoDown( nSkip ), skip to Down <nSkip> items, bChanged will be evaluated + New METHOD GoUp( nSkip ), skip to Up <nSkip> items, bChanged will be evaluated ...

... ) UPDATE oLbx:bLogicLen := { || oRs:RecordCount } oLbx:bGoTop := { || oRs:MoveFirst() } oLbx:bGoBottom := { || oRs:MoveLast() } oLbx:bSkip := { | nSkip | Skipper( oRs, nSkip ) } oLbx:cAlias := "ARRAY" oDlgs:lHelpIcon := .f. ACTIVATE DIALOG oDlgs ............................................. ...

... ) OF Dialogo size 15,110 pixel oLbX:bGoTop = { || nCur := 1 } oLBX:bGoBottom = { || nCur := Len( EMPRE ) } oLbX:bSkip = { | nSkip | Skipper( EMPRE, @nCur, nSkip ) } // con array oLbX:bLogicLen := { || LEN(EMPRE) } oLbX:cAlias := "Array" oLbX:bKeydown := { | nKey ...

Pete: Also, I saved the row in the browse cargo: oBrw:bSkip := { | nSkip, nOld | ; iif(nSkip == nil, nSkip := 1, ),; nOld := oBrw:nArrayAt,; oBrw:nArrayAt += nSkip,; oBrw:nArrayAt := Min( Max( oBrw:nArrayAt, 1 ), len( oBrw:aArrayData ) ),; oBrw:cargo := oBrw:nArrayAt, ...

... oLbx:bLogicLen = { || oRs:RecordCount } oLbx:bGoTop = { || oRs:MoveFirst() } oLbx:bGoBottom = { || oRs:MoveLast() } oLbx:bSkip = { | nSkip | Skipper( oRs, nSkip ) } oLbx:cAlias = "ARRAY" REDEFINE BUTTON ID 102 OF oDlg ACTION( EditC1(.t.,oLbx ), oLbx:Refresh() ) REDEFINE ...

... SIZE 220, 167 oBrw:bLogicLen = { || Len( aArray ) } oBrw:bGoTop = { || nCur := 1 } oBrw:bGoBottom = { || nCur := Len( aArray ) } oBrw:bSkip = { | nSkip | Skipper( aArray, @nCur, nSkip ) } oBrw:cAlias = "ARRAY" @ 12, 2 BUTTON "Dlg" SIZE 80, 30 ACTION MsgInfo( aArray[ nCur, 1 ] ) @ 12,17 BUTTON ...