FiveTech Software tech support forums

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)

up!!!

Sera que é só eu que tenho este problema???