FiveTech Software tech support forums

Uno de los muchos controles FUNCTION BrowseConsulta( vConBrw, oPanBrw, cAliTab, fFunDCl,fFunEnt,fFunDel,; fFunIns,nColPos,fFunMod,cTipCol,cVerFon,nFonBro) LOCAL oCajDia, cCol, aItem , oBrwFW2 , K := 1, campo, nPosGui := 0 LOCAL A := "IMAGEN", nRecSel := 0, oBrush, oCol ...

... := < |hDC| nRowPos := oBrw:nRowSel // screen row for border-painting :roll: nRowPos1 := oBrw:Keyno() // record row for record-display on top nColPos := oBrw:nColSel oSay[3]:Refresh() oSay[4]:Refresh() IIF( nBorder = 1,CELL_BORDER( oBrw, hDC, nRowPos, nColPos, nOption, nPenPos,; nRGBColor, ...

... a solution. A selected column 2 still shows column 4 ( only if changing the column inside the sane row ) :!: :( To get the col-pos I'm using : nColPos := oBrw:SelectedCol():nCreationOrder http://www.pflegeplus.com/IMAGES/Autofocus3.jpg http://www.pflegeplus.com/IMAGES/Autofocus1.jpg ...

... the mouse Autofocus OFF is drawing a border on cellclick The border is painted with : oBrw:bPainted := < |hDC| CELL_BORDER( oBrw, hDC, nColRow, nColPos, nOption, nPosition,; nRGBColor, nPensize, nRound, nTranpL, lCol ) RETURN NIL > the new position the border has to be painted : oBrw:bChange ...

... sta tement .\source\ereport.prg(5258) Warning W0001 Ambiguous reference 'NCOL' .\source\ereport.prg(5258) Warning W0001 Ambiguous reference 'NCOLPOS' .\source\ereport.prg(5259) Error E0004 LOCAL declaration follows executable sta tement .\source\ereport.prg(5259) Warning W0001 Ambiguous reference ...

... sta tement .\source\ereport.prg(5258) Warning W0001 Ambiguous reference 'NCOL' .\source\ereport.prg(5258) Warning W0001 Ambiguous reference 'NCOLPOS' .\source\ereport.prg(5259) Error E0004 LOCAL declaration follows executable sta tement .\source\ereport.prg(5259) Warning W0001 Ambiguous reference ...

René,

Try this:

oBrw:bAction := { | obj | If( oBrw:nColPos() == 2, MsgInfo( "delete" ),) }

There is no need to use bChange

René,

Already implemented, I am emailing you the modified libs.

Here it is an example of use:

oBrw:bAction = { | oBrw | MsgInfo( oBrw:nColPos() ) }

I am going to review the nRowPos issue

... ,vConBrw, oPanBrw, cAliTab,cFunEsp, vFunBrw,cManOrd,cActbus,fFunDCl,cTipCol,nFonBro ) LOCAL oCajDia, cCol, aItem , oBrwFW2 , K := 1 , oCol LOCAL nColPos := 1 local aRowGrad, aSelGrad, aStdGrad local n := RGB( 157, 248, 255 ) LOCAL aFont := Array( 5 ) LOCAL oFonBro DEFINE FONT aFont[ 1 ] NAME ...

... ,vConBrw, oPanBrw, cAliTab,cFunEsp, vFunBrw,cManOrd,cActbus,fFunDCl,cTipCol,nFonBro ) LOCAL oCajDia, cCol, aItem , oBrwFW2 , K := 1 , oCol LOCAL nColPos := 1 local aRowGrad, aSelGrad, aStdGrad local n := RGB( 157, 248, 255 ) LOCAL aFont := Array( 5 ) LOCAL oFonBro DEFINE FONT aFont[ 1 ] NAME ...

... ELSEIF nCol >= GetPixel( oGenVar:aAreaSizes[nArea,1] ) + nRuler C:\Git\easyreport_n1\source\ereport.prg(1439): nColPos := GetPixel( oGenVar:aAreaSizes[nArea,1] ) + nRuler C:\Git\easyreport_n1\source\ereport.prg(1443): IIF( lShow, GetPixel( oGenVar:aAreaSizes[nArea,1] ...

... at aColSizes the Array or a Block // to get dinamically the Sizes !!! ::Skip( ::nRowPos - wBrwPane( ::hWnd, ::hDC, Self, ::bLine,; ::aColSizes, ::nColPos, ::nClrText, ::nClrPane,; If( ::oFont != nil, ::oFont:hFont, 0 ), ::aJustify, ; ::nLineStyle, 0 , .f., ::bTextColor, ::bBkColor, ::nClrLine,; ...

... problems in this way wbrowse.prg case nScrollCode == SB_PAGEDOWN while nCol < Len( ::GetColSizes() ) .and. ; (::IsColVisible( nCol ) .or. ::nColPos == nCol) nCol++ end IF ::lNoHScroll <> .T. ::nColPos := nCol ::nColAct := nCol ::oHScroll:SetPos( nCol ) ::Refresh( .f. ) ENDIF

I expect the N is either nRow or ::nColPos. However, since the error is not easy to generate, it will be very hard to find. Perhaps it would be easier to switch to using xBrowse instead. Hi James, I also looked at xBrowse and wonder how our ...

Jose,

I expect the N is either nRow or ::nColPos. However, since the error is not easy to generate, it will be very hard to find.

Perhaps it would be easier to switch to using xBrowse instead.

James