FiveTech Software tech support forums

by **Antonio Linares** » Sat Sep 05, 2009 9:35 am

An enhanced RE.EXE version :-)

http://www.mediafire.com/?sharekey=45bb ... eaa7bc68bc

See the advantages of storing it in the wiki for reviewing changes :-)

by **Otto** » Sun Sep 06, 2009 6:28 am

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:

Code: Select all Expand view RUN: case cFirst == "CONTROL" cResource += ParseControl( cLine ) nControls++ cResource += Beschriftung( cLine ) nControls++

Code: Select all Expand view RUN: function Beschriftung( cLine ) local nTop, nLeft, nWidth, nHeight, nId, nAt local cClassName, cStyle, nStyle := nOr( WS_VISIBLE, WS_CHILD, WS_TABSTOP ), cCaption, cToken local cId cCaption = StrToken( cLine, 2, '"' ) cLine = StrToken( cLine, 1, '"' ) + '"-"' + StrToken( cLine, 3, '"' ) + '"' + ; StrToken( cLine, 4, '"' ) + '"' + StrToken( cLine, 5, '"' ) nId = Val( StrToken( cLine, 1, "," ) ) nLeft = Val( StrToken( cLine, 5, "," ) ) nTop = Val( StrToken( cLine, 6, "," ) ) nWidth = Val( StrToken( cLine, 7, "," ) ) nHeight = Val( StrToken( cLine, 8, "," ) ) cClassName = StrToken( cLine, 4, '"' ) cStyle = StrToken( cLine, 4, "," ) cId := STRTRAN(StrToken( cLine, 3, '"' ),",") cClassName = "edit" nHeight := 2 nWidth := 20 nStyle:= 1342373888 return cCtrl2Chr( nTop, nLeft, nTop + nHeight, nLeft + nWidth, nId, nStyle,; cClassName, + cId + "#")

Do you think I could print these controls in a certain font easily?
Thanks in advance
Otto

by **Antonio Linares** » Sun Sep 06, 2009 8:16 am

Otto,

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

by **Antonio Linares** » Sun Sep 06, 2009 8:42 am

then tooltips are shown even in design mode :-)

by **Antonio Linares** » Sun Sep 06, 2009 8:53 am

by **Otto** » Sun Sep 06, 2009 4:58 pm

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

by **Antonio Linares** » Sun Sep 06, 2009 7:23 pm

Otto,

Yes, see my posted changes for Class TControl above

by **Otto** » Sun Sep 06, 2009 8:48 pm

Hello Antonio,

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

Code: Select all Expand view RUN: oCtrl:bLDblClick = { || msginfo( AllTrim( Str( GetWindowLong( oCtrl:hWnd, GWL_ID ) ) ))}

but this does not work.

Best regards,
Otto

by **Antonio Linares** » Sun Sep 06, 2009 9:45 pm

Otto,

Here you have it :-)

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