FiveTech Software tech support forums

Otto,

Here you have it
http://wiki.fivetechsoft.com/doku.php?id=fivewin_resources_editor&rev=1252273224&do=diff

Hello Antonio,

tooltip is working. But how can I get the nID on dbClick event?
I tried:

Code: Select all  Expand view

oCtrl:bLDblClick = { || msginfo( AllTrim( Str( GetWindowLong( oCtrl:hWnd, GWL_ID ) ) ))}
     

but this does not work.

Best regards,
Otto

Otto,

Yes, see my posted changes for Class TControl above

Hello Antonio,

your exe is working but if I compile the prg-file tooltip is not working.
Do I need some changed in a class?

Thanks in advance
Otto

New RE version to download:
http://www.mediafire.com/?sharekey=45bb ... 8114394287

Otto, With these changes in RE.prg: http://wiki.fivetechsoft.com/doku.php?id=fivewin_resources_editor&rev=1252143398&do=diff and these changes in Class TControl: http://img443.imageshack.us/img443/9872/capturewb.jpg then tooltips are shown even in design mode ...

Otto,

Wouldn't be simpler to have the IDs as tooltips ?

Hello Antonio, I changed the way I will print the IDs on the dialog. I add extra controls which print the IDs. This is what I did: case cFirst == "CONTROL"              cResource += ParseControl( cLine )            &n...

An enhanced RE.EXE version :-) http://www.mediafire.com/?sharekey=45bb48d8e89c39db7432d3c9683f450ac42a1999dd122592c95965eaa7bc68bc See the advantages of storing it in the wiki for reviewing changes :-) http://wiki.fivetechsoft.com/doku.php?id=fivewin_resources_editor&rev=12520823...

Otto,

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

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

Hello Antonio,

Here it works fine

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

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

Otto,

Have you previously done this ?

oCtrl:hWnd = hCtrl

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

Hello Antonio,
with

Code: Select all  Expand view

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

nID is always 0.
Best regards,
Otto