FiveTech Software tech support forums

... aDArray , aTmpArray[x])
Endif
Next x
DispDesc := If(Len(aDArray)#0,.T.,.F.)
Endif

uTemp := tRtn := uVar
aDim := aBrwPosRect( oBrw:hWnd, oBrw:nRowPos, oBrw:aColSizes, oBrw:nColPos, nCol,;
If( oBrw:oFont != nil, oBrw:oFont:hFont, 0 ) )

aDim[1]:= aDim[ 1 ] + 1
lOk := .f.
cHType := ValType( uVar ...

... 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 ...

... 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
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 ...

... 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 ...

> 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

... 41; oBrwNed:SetColor&#40; OwnClrGreen, OwnClrYellow &#41; oBrwNed:Select&#40; 1 &#41; oBrwNed:bChange := &#123; | obj , nindex| Msginfo&#40; obj:nRowPos&#40;&#41; &#41;&#125; oBrwNed:bAction := &#123; | obj , nindex| RK_Wijzig&#40;oBrwNed:nArrayAt, 'Name', aName&#41; &#125;
If I click on a row I ...

... the 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( nTmp ...

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?

... n1\source\ereport.prg(1432): 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 ...