fwh\samples\RE.prg - FiveWin Resources Editor underrated

[Otto]

Hello Antonio,
yes.
Best regards,
Otto

[Antonio Linares]

Otto,

When I use the modified RE.prg and click on the left tree, it shows the 4003 in the MsgInfo()

Where do you want it to be shown ? In the modificable dialogbox ? Inside the combobox ?

[James Bott]

Otto,

>The print out with the controls and id would be helpful for coding.

I still suggest considering using RC2PRG.PRG. Just modify it to generate the code style you want. This way to don't need to see the IDs, nor do you have to do any hand coding. Or, at least it gets you a generic version of the code, which you can then modify by hand to your liking.

It may take a little work to modify it, but it will prevent you from having to hand code all your dialogs from then on.

James

[Otto]

Hello Antonio,

Here on the hardcopy of the dialog:
Best regards,
Otto

[Antonio Linares]

Otto,

if it is an editable combobox, then it contains a child edit control, thats why you don't see the ID.

You have to locate the hWnd of the child edit:

Code: Select all  Expand view

hWndEdit = GetWindow( oCtrl:hWnd, GW_HWNDCHILD )
SetWindowText( hWndEdit, Str( nId ) )
 

[Otto]

Hello Antonio,
I inserted the code into the InitControls function.
But how do I find out the nId. oCtrl:nId is empty?

Best regards,
Otto

Code: Select all  Expand view

function InitControls( oDlg )
   local hDlg := oDlg:hWnd, hCtrl := GetWindow( hDlg, GW_CHILD ), oCtrl
   local hWndEdit
   
   if hCtrl != 0
      oCtrl = TControl()
      oCtrl:oWnd = oDlg
      oCtrl:hWnd = hCtrl
      oCtrl:Link()
      AAdd( oDlg:aControls, oCtrl )
      oCtrl:lDrag = .T.
      oCtrl:bGotFocus = { || oCtrl:ShowDots() }
     
   endif


   while hCtrl != 0
      hCtrl = GetWindow( hCtrl, GW_HWNDNEXT )
      if hCtrl != 0
         oCtrl = TControl()
         oCtrl:oWnd = oDlg
         oCtrl:hWnd = hCtrl
       
hWndEdit = GetWindow( oCtrl:hWnd, GW_HWNDCHILD )
SetWindowText( hWndEdit, " ( oCtrl:nId )"  )  
         oCtrl:Link()
         
         oCtrl:lDrag = .T.
         oCtrl:bGotFocus = { || oCtrl:ShowDots() }
      endif
   end

return nil

//----------------------------------------------------------------------------//
 

[Antonio Linares]

Otto,

GetWindowLong( hWndControl, GWL_ID ) --> nId

http://msdn.microsoft.com/en-us/library/ms633584(VS.85).aspx

[Otto]

Hello Antonio,
thank you for your help.
Although I can’t find out how to get the nID of the combobox.
I tried to insert into InitControls function your code but the nID is 1001 and not 4003. I think I get the nID of the edit control and not of the combobox.
Best regards,
Otto

Code: Select all  Expand view

if hCtrl != 0
         oCtrl = TControl()
         oCtrl:oWnd = oDlg
         oCtrl:hWnd = hCtrl
       
        hWndEdit = GetWindow( oCtrl:hWnd, GW_HWNDCHILD )
       nID := GetWindowLong( hWndEdit,        GWL_ID )  

[Antonio Linares]

Otto,

This way:

Code: Select all  Expand view

    nID := GetWindowLong( oCtrl:hWnd, GWL_ID )  
 

[Otto]

Hello Antonio,
with

Code: Select all  Expand view

nID := GetWindowLong( oCtrl:hWnd, GWL_ID )  
msginfo( nID )     
 

nID is always 0.
Best regards,
Otto

[Antonio Linares]

Otto,

Have you previously done this ?

oCtrl:hWnd = hCtrl

Please send me your most recent RE.prg and I will check it here, thanks

[Antonio Linares]

Otto,

In function ParseControl( cLine ) make this change:

nId = Val( StrToken( cLine, 2, "," ) )

also change this section in function InitControls( oDlg ):

Code: Select all  Expand view

   ...
   while hCtrl != 0

      hCtrl = GetWindow( hCtrl, GW_HWNDNEXT )
   
      if hCtrl != 0
         oCtrl = TControl()
         oCtrl:oWnd = oDlg
         oCtrl:hWnd = hCtrl
       
         // Is it an editable combobox  
         if ( hWndEdit := GetWindow( oCtrl:hWnd, GW_HWNDCHILD ) ) != 0
            nID = GetWindowLong( oCtrl:hWnd, GWL_ID )  
            SetWindowText( hWndEdit, Str( nID ) )  
         endif
   
         oCtrl:Link()
         oCtrl:lDrag = .T.
         oCtrl:bGotFocus = { || oCtrl:ShowDots() }
      endif
   end

return nil
 

Here it works fine

[Otto]

Hello Antonio,

Here it works fine

Also here.
Thank you very much.
Best regards,
Otto

[Antonio Linares]

Otto,

I have modified the original FWH\samples\re.prg to make its interface more friendly:

I am trying to upload the source code here but it seems as it is does not show

[Antonio Linares]

Otto,

I have uploaded it to the wiki:
http://wiki.fivetechsoft.com/doku.php?i ... ces_editor