FiveTech Software tech support forums

... ::nRowPos ::nRowPos = ::nLen endif ::DrawSelect() endif ::DispEnd( aInfo ) If ::oVScroll != Nil .and. ::bLogicPos != Nil if ::lHitTop .or. ( ::nLogicPos!= nil .and. ::nLogicPos <= 1 ) .or. ::lGoTop .or. ::nLen <= 1 ::oVScroll:SetPos( 1 ) elseif ::lHitBottom .or. ::lGoBottom ::oVScroll:SetPos( ...

... .t. obRW2:lNoChangeOrd:= .t. obRW2:lFooting := .t. obRW2:lNoMoveCols := .t. obRW2:lNoHScroll := .t. obRW2:nFreeze := 2 bColor := {|| If(oBrw2:nLogicPos() % 2 = 0,CLR_LGRAY,CLR_LGREEN) } obRW2:SetColor( { 1, 3, 4, 5, 6, 9, 10, 13, 15, 11, 12, 14 }, ; { CLR_BLACK,; CLR_BLACK,; nRGB(211, 227, ...

... .t. obRW2:lNoChangeOrd:= .t. obRW2:lFooting := .f. obRW2:lNoMoveCols := .f. obRW2:lNoHScroll := .t. obRW2:nFreeze := 4 bColor := {|| If(oBrw2:nLogicPos() % 2 = 0,CLR_LGRAY,CLR_LGREEN) } obRW2:bKeyDown := {|nKey| if(nKey==VK_INSERT,fwhtradicmanut(.t.,oBrw2),; if(nKey==VK_RETURN,fwhtradicmanut(.f.,oBrw2),; ...

... MoveColumn( nColPos, nNewPos ) METHOD nAtCol( nColPix, lActual ) METHOD nAtIcon( nRow, nCol ) METHOD nColCount() INLINE Len( ::aColumns ) METHOD nLogicPos() METHOD nRowCount() INLINE ; CountRows( ::hWnd, ::nHeightCell, If( ::lDrawHeaders, ::nHeightHead, 0 ), ; If( ::lFooting .and. ::lDrawFooters, ...

... {|nKey| if(FWTECLASEDITAVEIS(nkey),(oprod:setfocus(),keybd_event(nKey,,,0)),Nil)} oBrw2:bOnEscape := {|| oWndChild:end() } bColor := {|| If(oBrw2:nLogicPos() % 2 = 0,CLRT1,CLRT2) } obRW2:SetColor( { 1, 3, 4, 5, 6, 9, 10, 13, 15, 11, 12 }, ; { CLR_BLACK,; CLR_BLACK,; nRGB(211, 227, 247),; CLR_WHITE,; ...

... oTbr, oVar ) } oTbr:ChangeFont( oPub:hFntBarra, , 2 ) oTbr:SetIndexCols( 1, 2 ) oTbr:SetColor( { 2, 4, 5, 6, 11, 12, 14, 15 } ,; { {|| IF( oTbr:nLogicPos % 2 = 0, oPub:nClrBrw1, oPub:nClrBrw2 ) },; { GetSysColor(9), CLR_HGRAY } ,; { CLR_BLACK } ,; { nRgb( 254,112,0 ), nRgb( 251,219,181 ) } ,; ...

... obRW2:lNoMoveCols := .T. **obRW2:bchange := {|| } **obRW2:bKeyDown := {|nKey| } **oBrw2:bOnEscape := {|| oWndChild:end() } bColor := {|| If(oBrw2:nLogicPos() % 2 = 0,CLR_LGRAY,CLR_LGREEN) } obRW2:SetColor( { 1, 3, 4, 5, 6, 9, 10, 13, 15, 11, 12 }, ; { CLR_BLACK,; CLR_BLACK,; nRGB(211, 227, 247),; ...

... } bColor := {|| If(oBrw3:nLogicPos() % 2 = 0,CLRT1,CLRT2) } obRW3:SetColor( { 1, 3, 4, 5, 6, 9, 10, 13, 15, 11, 12 }, ; { CLR_BLACK,; CLR_BLACK,; nRGB(211, 227, 247),; CLR_WHITE,; ...

... {|nKey| if(FWTECLASEDITAVEIS(nkey),(oprod:setfocus(),keybd_event(nKey,,,0)),Nil),; if(nKey==VK_ESCAPE,oWndChild:end(),NIL)} bColor := {|| If(oBrw2:nLogicPos() % 2 = 0,CLR_LGRAY , CLR_LGREEN ) } obRW2:SetColor( { 1, 3, 4, 5, 6,9,10 , 13, 15, 11,12 }, ; { CLR_BLACK,; CLR_BLACK,; nRGB(211, 227, 247),; ...

... .or. obRW2:nAt>Len(subgrupos),0,subgrupos[obRW2:nat,2]),@aprodsubs,@npg,@nto,tchbtn,tipo,fwdeabrtc,cDigProdvd) } bColor := {|| If(oBrw2:nLogicPos() % 2 = 0, CLR_LGRAY , CLR_LGREEN ) } obRW2:SetColor( { 1, 3, 4, 5, 6,9,10 , 13, 15, 11,12 }, ; { CLR_BLACK,; CLR_BLACK,; nRGB(211, 227, 247),; ...

... .f. ),objdisable(odgets) } obRW:bchange := {|| FW803MostraTotal(@nTotQtd,@nTotal,@nTotGer,cConsiEmbal,nAcreDes,cModo,obRW) } bColor := {|| If(oBrw:nLogicPos() % 2 = 0, CLR_LGRAY , CLR_LGREEN ) } obRW:SetColor( { 1, 3, 4, 5, 6,9,10 , 13, 15, 11,12 }, ; { CLR_BLACK,; CLR_BLACK,; nRGB(211, 227, 247),; ...

... ) ,nil ),; ::nLogicLen ) #xtranslate __LOGIC_POS__ => ; ( if( ::lLogicPos, ( n:= Eval( bLogicPos ),; ::lLogicPos:= .F.,; if( "N"$ValType(n), ::nLogicPos:= n, nil ) ) ,nil ),; ::VerifyLogicPos(::nLogicPos) ) #xtranslate VSCROLL_WIDTH => ; If( ::oVScroll != Nil .and. Eval(::bLogicLen) > ...

... I've changed to use TSbrowse instead of TWbrowse and Comix&ClipMore. The result is ::nRowPos -> All items alway show '1' after refresh. ::nLogicPos -> It shows the item number belonging to Comix but do not support ClipMore. Because I used both ::nAt -> It works fine. Best regards, ...

Dear All,

How can I get item number in the Twbrowse as :nLogicPos() of TSbrowse().

Best regards,
Dutch

try :
DATA { || StrZero( ::oBrw:nlogicpos(), 4 ) }

regards

KOK