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

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

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

regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42149
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

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

Postby 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
Image
********************************************************************
mod harbour - Vamos a la conquista de la Web
modharbour.org
https://www.facebook.com/groups/modharbour.club
********************************************************************
User avatar
Otto
 
Posts: 6353
Joined: Fri Oct 07, 2005 7:07 pm

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

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

Otto,

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

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42149
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

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

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

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:
Image

then tooltips are shown even in design mode :-)
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42149
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

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

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

regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42149
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

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

Postby 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
********************************************************************
mod harbour - Vamos a la conquista de la Web
modharbour.org
https://www.facebook.com/groups/modharbour.club
********************************************************************
User avatar
Otto
 
Posts: 6353
Joined: Fri Oct 07, 2005 7:07 pm

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

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

Otto,

Yes, see my posted changes for Class TControl above
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42149
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

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

Postby 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
********************************************************************
mod harbour - Vamos a la conquista de la Web
modharbour.org
https://www.facebook.com/groups/modharbour.club
********************************************************************
User avatar
Otto
 
Posts: 6353
Joined: Fri Oct 07, 2005 7:07 pm

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

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

regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42149
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Previous

Return to FiveWin for Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 36 guests