Hello Antonio,
yes.
Best regards,
Otto
FiveTech Support Forums
FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour fwh\samples\RE.prg - FiveWin Resources Editor underrated
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 ?
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
FWH 18.05/xHarbour 1.2.3/BCC7/Windows 10
Hello Antonio,
Here on the hardcopy of the dialog:
Best regards,
Otto
Here on the hardcopy of the dialog:
Best regards,
Otto
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:
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:
hWndEdit = GetWindow( oCtrl:hWnd, GW_HWNDCHILD )
SetWindowText( hWndEdit, Str( nId ) )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
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
//----------------------------------------------------------------------------//
Otto,
GetWindowLong( hWndControl, GWL_ID ) --> nId
http://msdn.microsoft.com/en-us/library/ms633584(VS.85).aspx
GetWindowLong( hWndControl, GWL_ID ) --> nId
http://msdn.microsoft.com/en-us/library/ms633584(VS.85).aspx
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
if hCtrl != 0
oCtrl = TControl()
oCtrl:oWnd = oDlg
oCtrl:hWnd = hCtrl
hWndEdit = GetWindow( oCtrl:hWnd, GW_HWNDCHILD )
nID := GetWindowLong( hWndEdit, GWL_ID )Hello Antonio,
with
nID is always 0.
Best regards,
Otto
with
nID := GetWindowLong( oCtrl:hWnd, GWL_ID )
msginfo( nID )nID is always 0.
Best regards,
Otto
Otto,
Have you previously done this ?
oCtrl:hWnd = hCtrl
Please send me your most recent RE.prg and I will check it here, thanks 
Otto,
In function ParseControl( cLine ) make this change:
nId = Val( StrToken( cLine, 2, "," ) )
also change this section in function InitControls( oDlg ):
...
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 nilHere it works fine :-)
Hello Antonio,
Also here.
Thank you very much.
Best regards,
Otto
Here it works fine
Also here.
Thank you very much.
Best regards,
Otto
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
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