ID exists on dialog!?

[JC]

How I can check if a id resource exists on a dialog... from resource!?

[James Bott]

Try to redefine it and see if it errors out; use a new error codeblock to trap the error and recover.

James

[JC]

Try to redefine it and see if it errors out; use a new error codeblock to trap the error and recover.

James

James,
Thank you... Really, I want to check if same id resource exists before redefine it! It's possible?
Some like a loop into oDlg:aControls or another thing for test if same id (i.e. 4001) exists...

[Antonio Linares]

Julio,

You can create the dialog without redefining any control from it:

DEFINE DIALOG oDlg RESOURCE "test"

ACTIVATE DIALOG oDlg ON INIT MsgInfo( GetDlgItem( oDlg:hWnd, nID ) )

if you get a zero, then such ID is not defined.

[JC]

Julio,

You can create the dialog without redefining any control from it:

DEFINE DIALOG oDlg RESOURCE "test"

ACTIVATE DIALOG oDlg ON INIT MsgInfo( GetDlgItem( oDlg:hWnd, nID ) )

if you get a zero, then such ID is not defined.

Antonio,

I have created this function for our application:

Code: Select all  Expand view

FUNCTION getObjById( oDlg, nId )

LOCAL nLin := 0

DEFAULT oDlg := if( getWndDefault() == NIL, getWnd(), getWndDefault() ), ;
        nId  := 0


IF !empty( nId )

   FOR nLin := 1 TO len( oDlg:aControls )

       IF ( ( oDlg:aControls[nLin] ):nId == nId )
          RETURN( oDlg:aControls[nLin] )
       ENDIF

   NEXT

ENDIF

RETURN( NIL )

But, this function GetDlgItem( oDlg:hWnd, nID ) do the same test! Outch!
With this, it's possible to determinate if a id from a resource exists?

[JC]

James and Antonio,

I have put a Text objeto from Pelles C into a dialog with id 102!
When I calling msgInfo( getDlgItem( oDlg:hWnd, 102 ) ), this returns 0 to me... It's correct? Or I made the wrong way?

[Antonio Linares]

Julio,

Are you calling it from the ON INIT of the dialog ?

ACTIVATE DIALOG oDlg ON INIT msgInfo( getDlgItem( oDlg:hWnd, 102 ) )

So oDlg has a valid Windows handle.