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

[Antonio Linares]

An enhanced RE.EXE version
http://www.mediafire.com/?sharekey=45bb ... eaa7bc68bc

See the advantages of storing it in the wiki for reviewing changes
http://wiki.fivetechsoft.com/doku.php?i ... 66&do=diff

[Otto]

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

case cFirst == "CONTROL"
              cResource += ParseControl( cLine )
              nControls++
     cResource += Beschriftung( cLine )
              nControls++

Code: Select all

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

[Antonio Linares]

Otto,

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

[Antonio Linares]

Otto,

With these changes in RE.prg:
http://wiki.fivetechsoft.com/doku.php?i ... 98&do=diff

and these changes in Class TControl:


then tooltips are shown even in design mode

[Antonio Linares]

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

[Otto]

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

[Antonio Linares]

Otto,

Yes, see my posted changes for Class TControl above

[Otto]

Hello Antonio,

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

Code: Select all

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

but this does not work.

Best regards,
Otto

[Antonio Linares]

Otto,

Here you have it
http://wiki.fivetechsoft.com/doku.php?i ... 24&do=diff