Bug xbrowse header

[MGA]

Amigos, no exemplo abaixo tirado do c:\fwh802\samples\testxbrw,
se logo na entrada clicar no header, o sistema vai mostrar a mensagem e em seguida o header vai ficar louco.



STATIC FUNCTION NewDialog( oWnd )

local oDlg, oBrw,cod:=10,oget

DEFINE DIALOG oDlg RESOURCE "TEST" OF oWnd

REDEFINE GET oget var cod id 4001 of odlg picture "999999" valid bod(cod)



oBrw := TXBrowse():New( oWnd )

oBrw:CreateFromResource( 101 )

oBrw:SetArray( { { "first", "row" }, { "second", "row" } } )
oBrw:aCols[ 1 ]:cHeader = "An array"
oBrw:aCols[ 2 ]:cHeader = "test"
oBrw:aCols[ 1 ]:bClrStd = { || { CLR_WHITE, CLR_BLUE } }
oBrw:aCols[ 2 ]:bClrStd = { || { CLR_WHITE, CLR_BLUE } }

ACTIVATE DIALOG oDlg ;
ON INIT ( oBrw:SetColor( CLR_WHITE, CLR_BLUE ) )

RETURN NIL


FUNCTION test(COD)

LOCAL LRET:=.F.

IF COD>5
msginfo("depois de confirmar esta mensagem o header fica louco")
LRET:=.F.
ELSE
LRET:=.T.
ENDIF

RETURN(LRET)


Como resolver?


Grato

[MGA]

UP!

[MGA]

UP!!