FiveTech Software tech support forums

Posted: **Thu Sep 03, 2009 9:18 am**

Hello Antonio,
yes.
Best regards,
Otto

Posted: **Thu Sep 03, 2009 9:29 am**

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 ?

Posted: **Thu Sep 03, 2009 11:22 am**

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

Posted: **Thu Sep 03, 2009 11:52 am**

Hello Antonio,

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

Posted: **Thu Sep 03, 2009 1:14 pm**

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


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

Posted: **Thu Sep 03, 2009 3:58 pm**

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

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

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

Posted: **Thu Sep 03, 2009 5:25 pm**

Otto,

GetWindowLong( hWndControl, GWL_ID ) --> nId

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

Posted: **Thu Sep 03, 2009 8:37 pm**

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

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

Posted: **Thu Sep 03, 2009 9:34 pm**

Otto,

This way:

Code: Select all | Expand


    nID := GetWindowLong( oCtrl:hWnd, GWL_ID )

Posted: **Fri Sep 04, 2009 6:33 am**

Hello Antonio,
with

Code: Select all | Expand


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

nID is always 0.
Best regards,
Otto

Posted: **Fri Sep 04, 2009 7:02 am**

Otto,

Have you previously done this ?

oCtrl:hWnd = hCtrl

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

Posted: **Fri Sep 04, 2009 10:02 am**

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

   ...
   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

Posted: **Fri Sep 04, 2009 1:30 pm**

Hello Antonio,

Here it works fine

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

Posted: **Fri Sep 04, 2009 4:17 pm**

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

Posted: **Fri Sep 04, 2009 4:25 pm**

Otto,

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

FiveTech Software tech support forums

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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