Re: fwh\samples\RE.prg - FiveWin Resources Editor underrated
Posted:
Thu Sep 03, 2009 9:18 am
by Otto
Hello Antonio,
yes.
Best regards,
Otto
Re: fwh\samples\RE.prg - FiveWin Resources Editor underrated
Posted:
Thu Sep 03, 2009 9:29 am
by 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 ?
Re: fwh\samples\RE.prg - FiveWin Resources Editor underrated
Posted:
Thu Sep 03, 2009 11:22 am
by 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
Re: fwh\samples\RE.prg - FiveWin Resources Editor underrated
Posted:
Thu Sep 03, 2009 11:52 am
by Otto
Hello Antonio,
Here on the hardcopy of the dialog:
Best regards,
Otto
Re: fwh\samples\RE.prg - FiveWin Resources Editor underrated
Posted:
Thu Sep 03, 2009 1:14 pm
by 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 ) )
Re: fwh\samples\RE.prg - FiveWin Resources Editor underrated
Posted:
Thu Sep 03, 2009 3:58 pm
by 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
//----------------------------------------------------------------------------//
Re: fwh\samples\RE.prg - FiveWin Resources Editor underrated
Posted:
Thu Sep 03, 2009 5:25 pm
by Antonio Linares
Re: fwh\samples\RE.prg - FiveWin Resources Editor underrated
Posted:
Thu Sep 03, 2009 8:37 pm
by 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 )
Re: fwh\samples\RE.prg - FiveWin Resources Editor underrated
Posted:
Fri Sep 04, 2009 7:02 am
by 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
Re: fwh\samples\RE.prg - FiveWin Resources Editor underrated
Posted:
Fri Sep 04, 2009 10:02 am
by 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
Re: fwh\samples\RE.prg - FiveWin Resources Editor underrated
Posted:
Fri Sep 04, 2009 4:17 pm
by 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
Re: fwh\samples\RE.prg - FiveWin Resources Editor underrated
Posted:
Fri Sep 04, 2009 4:25 pm
by Antonio Linares