FiveTech Software tech support forums

... resolví de la siguiente forma: Color de fondo diferente para la cabecera de columna de ordenamiento actual (WBrowse.prg) ..... if ! lTree if nRowPos == 0 if ! IsAppThemed() WndBox( hDC, nTop - 1, nLeft - 1, nBottom, nRight ) WndBoxRaised( hDC, nTop, nLeft, nBottom - 1, nRight - 1 ) ---> ...

Buen dia:

prueba con esto

oBrw:gotop()
oBrw:UpStable()
oBrw:Refresh(.t.)

Saludos

Noé, Imagines aqui:

https://imgur.com/?

Saludos.

Saludos. Con un detalle del tsbrowse Con estas versiones actuales, no logro identificar donde esta el detalle... al hacer un redespliegue de tsbrowse: oBrw:GoTop() oBrw:Reset() me despliega el renglón actual el tsbrowse en mi ventana principal Tengo un dialogo que despliega un sbrowse y no entiendo ...

... a wrong var defined for inside, line and outside -border-painting Added a missing col-focus-selection by radiobuttons oBrw:bPainted := < |hDC| nRowPos := oBrw:nRowSel // screen row for border-painting :roll: nRowPos1 := oBrw:Keyno() // record row for record-display on top nColPos := oBrw:nColSel ...

... sta tement .\source\ereport.prg(5257) Warning W0001 Ambiguous reference 'NROW' .\source\ereport.prg(5257) Warning W0001 Ambiguous reference 'NROWPOS' .\source\ereport.prg(5258) Error E0004 LOCAL declaration follows executable sta tement .\source\ereport.prg(5258) Warning W0001 Ambiguous reference ...

... sta tement .\source\ereport.prg(5257) Warning W0001 Ambiguous reference 'NROW' .\source\ereport.prg(5257) Warning W0001 Ambiguous reference 'NROWPOS' .\source\ereport.prg(5258) Error E0004 LOCAL declaration follows executable sta tement .\source\ereport.prg(5258) Warning W0001 Ambiguous reference ...

> I am going to review the nRowPos issue

Fixed. I am sending you new modified libs.

Now nRowPos() should return zero when clicking on an empty row

I have not tested it. I appreciate your feedback

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

... OwnClrGreen, OwnClrYellow )            oBrwNed:Select( 1 )            oBrwNed:bChange := { | obj , nindex| Msginfo( obj:nRowPos() )}            oBrwNed:bAction := { | obj , nindex|  RK_Wijzig(oBrwNed:nArrayAt, 'Name', aName) }  If I ...

... 2 gets bar lines 3. METHOD MouseRowPos( nRow ) CLASS TXBrowse if ::lgetbar.and.nrow<::HeaderHeight().and.nrow>=::HeaderHeight()-::nrowheight nrowpos:=-1 elseif ::lgetbar.and.nrow<=::HeaderHeight()-::nrowheight.and.nrow>=::HeaderHeight()-::nrowheight*2 nrowpos:=-2 else nRowPos := Int( ...

Estoy con error: Erro dbcmd / 2001 Workarea no esta en uso: DBSKIP - Programa: TWBrowse: UPSTABLE Línea: 1954

if lSkip
( ::cAlias )->( DbSkip( -::nRowPos ) ) // -> Línea 1954
endif

¿Cómo puedo solucionarlo?

I am getting error: Erro DBCMD/2001 Workarea not in use: DBSKIP - Program: TWBROWSE:UPSTABLE Line: 1954

The wbrowse line is this:
if lSkip
( ::cAlias )->( DbSkip( -::nRowPos ) )
endif

How can I solve it?

... ELSEIF nRow >= GetPixel( oGenVar:aAreaSizes[nArea,2] ) + nRulerTop C:\Git\easyreport_n1\source\ereport.prg(1433): nRowPos := GetPixel( oGenVar:aAreaSizes[nArea,2] ) + nRulerTop C:\Git\easyreport_n1\source\ereport.prg(1438): ELSEIF nCol >= GetPixel( oGenVar:aAreaSizes[nArea,1] ...

... encontrando la manera de hacerlo. Tengo un ListBox y quiero que tenga a la izquierda en una columna el numero sequencial de la lbx, coloque oLbx:nRowPos e aparece solo el numero 1 y en la medida que voy bajando por la lbx van apareciendo los numeros sequenciales como en la foto                ...