topic-3627

Ari

Posts: 253

Joined: Fri Feb 03, 2006 04:21 PM

TXBrowse from resources
Posted: Wed Jul 19, 2006 05:20 PM

[ 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

Thanks,
Ari

FWH 2501 - Harbour 3.2.0 - Embarcadero 7.43 - MySQL
São Paulo - SP - Brasil
www.sisrev.com.br

wmormar

Posts: 1076

Joined: Fri Oct 07, 2005 10:41 PM

Re: TXBrowse from resources
Posted: Wed Jul 19, 2006 08:47 PM

Ari wrote:[ 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 Collapse

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

William, Morales

Saludos

méxico.sureste

FiveTech Support Forums

Continue the discussion