Bug xbrowse click header from test:
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)