Wbrowse with the black screem

[Giba_Fro]

ola a todos

tem um wBrowse tudo certinho, com as cores definidas tudo certo
se eu rolar para direta/esquerda (ou pela seta do teclado ou clicando na barra de rolagem do brw) permanece tudo ok

agora, se eu rolar pra baixo/cima (ou pela setas do teclado ou mesmo clicando na barra de rolagem do brw) o browse fica preto, permanecendo certo somente a linha do brw posicionada... se rolar pra direita/esquerda, volta ao normal... mas se voltar a rolar pra cima/baixo fica preto novamente

detalhe: ja tirei tudo onde faz cores no xbrowse e continua fazendo como escrito acima

...

andei olhando a classe e achei mais ou menos onde eh o problema:

METHOD DispBegin( lCreateDC ) CLASS TWBrowse
local hDC, aInfo, hOldDC:= ::hDC
DEFAULT lCreateDC:= .F.
if lCreateDC
hDC:= GetDC( ::hWnd )
else
hDC:= ::hDC
endif
aInfo:= FWDispBegin( ::hWnd, hDC )
::hDC:= aInfo[3] // hDC de Memoria !!!
return { aInfo, if(lCreateDC, hDC, nil ), hOldDC }


se eu comentar essas linhas o problema relatado no inicio do topico resolve, porem, a rolagem pra cima e para baixo, nao faz certo, mas a tela preta para

alguem pra dar uma pista para resolver ?

[Antonio Linares]

Puedes proporcionar un PRG pequeño y auto contenido para reproducir el problema ?

gracias!

[karinha]

https://forums.fivetechsupport.com/view ... c7#p204643

Regards, saludos.

[Giba_Fro]

Puedes proporcionar un PRG pequeño y auto contenido para reproducir el problema ?

nao tem nada de mais no fonte... todos WBrowse esta acontecendo, mesmo, num codigo bem basico, com esse:

*-----------------------
Function TESTES()
*-----------------------

DEFINE DIALOG oDlg FROM 00,00 TO 260,520 TITLE "T E S T E" ;
COLORS CLR_WHITE,CLR_WHITE PIXEL FONT oFont

@ 05,05 LISTBOX oBrw FIELDS CLI->COD,CLI->NOME ;
HEADERS "Codigo","Nome"
FIELDSIZES 40,60 ;
ALIAS "CLI" OF oDlg SIZE 180,100 PIXEL

ACTIVATE DIALOG oDlg CENTERED

Return(Nil)


PS: acontece o mesmo, utilizando array


gracias!

[Giba_Fro]

o problema esta aqui, mais precisamente na linha destacada:


METHOD DispBegin( lCreateDC ) CLASS TWBrowse

local hDC, aInfo, hOldDC:= ::hDC

DEFAULT lCreateDC:= .F.

if lCreateDC
hDC:= GetDC( ::hWnd )
else
hDC:= ::hDC
endif
aInfo:= FWDispBegin( ::hWnd, hDC )

::hDC:= aInfo[3] // hDC de Memoria !!!

return { aInfo, if(lCreateDC, hDC, nil ), hOldDC }

[Antonio Linares]

Que versión de FWH usas ?