TXBrowse from resources

[Ari]

[ testxbrw.prg ]

STATIC FUNCTION NewDialog( oWnd )
local oDlg, oBrw

DEFINE DIALOG oDlg RESOURCE "TEST" OF oWnd

oBrw := TXBrowse():New( oWnd ) // <<---- porque oWnd ?
// o certo deveria ser oDlg ?
oBrw:CreateFromResource( 101 )

ACTIVATE DIALOG oDlg

RETURN NIL

[wmormar]

[ testxbrw.prg ]

STATIC FUNCTION NewDialog( oWnd )
local oDlg, oBrw

DEFINE DIALOG oDlg RESOURCE "TEST" OF oWnd

oBrw := TXBrowse():New( oWnd ) // <<---- porque oWnd ?
// o certo deveria ser oDlg ?
oBrw:CreateFromResource( 101 )

ACTIVATE DIALOG oDlg

RETURN NIL

Code: Select all  Expand view

STATIC FUNCTION NewDialog( oWnd )
   local oDlg, oBrw

   DEFINE DIALOG oDlg RESOURCE "TEST" OF oWnd

     oBrw := TXBrowse():New( oDlg )
     oBrw:CreateFromResource( 101 )

   ACTIVATE DIALOG oDlg

RETURN NIL

Si pones oWnd, el TXBrowse se cuelga en le objeto Window, y no podria ser desde recursos, por lo tanto debe de ser oDlg, que es el objeto que contiene el dialogo TEST, donde contiene el recurso 101 TXBrowse