FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour How get a resource name ?
Posts: 182
Joined: Tue Oct 18, 2005 10:01 AM
How get a resource name ?
Posted: Tue May 13, 2008 07:51 PM

Hi ppl.

How I do to get a resource name please? For example: in workshop I have a "Listbox" resource. I need know that the control name is "listbox" when I redefine it.

Thanks and regards,

Toninho.

Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM
How get a resource name ?
Posted: Tue May 13, 2008 10:24 PM
Toninho,

From your PRG you can DEFINE DIALOG oDlg RESOURCE ... and don't redefine any of its controls. Then, once you have the oDlg:hWnd, you can step through its child controls and check the GetClassName( hWndControl ) of each control:
#define GW_CHILD      5 
#define GW_HWNDNEXT   2 

DEFINE DIALOG oDlg RESOURCE "Test"

ACTIVATE DIALOG oDlg ON INIT CheckControls( oDlg:hWnd )

...

function CheckControls( hWnd ) 

   local hCtrl := GetWindow( hWnd, GW_CHILD ) 

   while hCtrl != 0 
      MsgInfo( GetClassName( hCtrl )
      hCtrl = GetWindow( hCtrl, GW_HWNDNEXT ) 
   end 

return nil
regards, saludos

Antonio Linares
www.fivetechsoft.com

Continue the discussion