Resource Editor problem with TGET (GetBtn) *Worked OK now*

[dutch]

Dear Antonio and All,

I used BRW since FW2.5 and convert to 32bits. I've to use RESIZE16 clause when I use with FWH 9.01. Then when I use TGET (GetBtn-FWH) the Button does align incorrectly. I've changed the original classes as following to fix alignment. It works fine but I don't like to change original classes.

Code: Select all  Expand view

/*       @ 0, ::nWidth - ::nHeight BUTTONBMP ::oBtn OF Self ;
            ACTION ( Eval( oThis:bAction, oThis ), oThis:SetFocus() ) ;
            SIZE ::nHeight - 4, ::nHeight - 4 PIXEL 
*/
         @ 0, ( ::nWidth * 1.167 ) - ::nHeight BUTTONBMP ::oBtn OF Self ;
            ACTION ( Eval( oThis:bAction, oThis ) ) ;
            SIZE ::nHeight - 5, ::nHeight - 5 PIXEL


1. What is the way that make resource to use FWH 32bits without use RESIZE16 (I shall not change TGET code)?
2. How can I change TGET classes to compatible with RESIZE16 and without RESIZE16?

Regards,
Dutch

[Antonio Linares]

Dutch,

We can implement your fix this way:

Code: Select all  Expand view

if ! ::lResize16
   @ 0, ::nWidth - ::nHeight BUTTONBMP ::oBtn OF Self ;
      ACTION ( Eval( oThis:bAction, oThis ), oThis:SetFocus() ) ;
      SIZE ::nHeight - 4, ::nHeight - 4 PIXEL 
else
   @ 0, ( ::nWidth * 1.167 ) - ::nHeight BUTTONBMP ::oBtn OF Self ;
      ACTION ( Eval( oThis:bAction, oThis ) ) ;
      SIZE ::nHeight - 5, ::nHeight - 5 PIXEL
endif


Please try it and if it is fine for you, then we will include it for next FWH build

[dutch]

Dear Antonio,

::lResize16 is Dialog DATA. It is not exist in TGET. If I'm not wrong, Dialog will be resize all object in DIALOG ACTIVATE.
How can TGET will know ::lResize16?

Regards,
Dutch

Dutch,

We can implement your fix this way:

Code: Select all  Expand view

if ! ::lResize16
   @ 0, ::nWidth - ::nHeight BUTTONBMP ::oBtn OF Self ;
      ACTION ( Eval( oThis:bAction, oThis ), oThis:SetFocus() ) ;
      SIZE ::nHeight - 4, ::nHeight - 4 PIXEL 
else
   @ 0, ( ::nWidth * 1.167 ) - ::nHeight BUTTONBMP ::oBtn OF Self ;
      ACTION ( Eval( oThis:bAction, oThis ) ) ;
      SIZE ::nHeight - 5, ::nHeight - 5 PIXEL
endif


Please try it and if it is fine for you, then we will include it for next FWH build

[Antonio Linares]

Dutch,

My mistake, sorry. I meant this code:

Code: Select all  Expand view

if Upper( ::oWnd:ClassName() ) == "TDIALOG"
   if ! ::oWnd:lResize16
      ...
   ...
      ...


[dutch]

Dear Antonio,

I work fine perfect now.

Thanks&Regards,
Dutch

[Antonio Linares]

Dutch,

This solution may be simpler and we don't need to modify the existing code:

Code: Select all  Expand view

METHOD CreateButton() CLASS TGet

      ... the button is created ...

      if Upper( ::oWnd:ClassName() ) == "TDIALOG" .and. ::oWnd:lResize16
         ::oBtn:nWidth  = ::nHeight - 5
         ::oBtn:nHeight = ::nHeight - 5
         ::oBtn:nLeft   = ( ::nWidth * 1.167 ) - ::nHeight
      endif   

      ...


I appreciate your feedback, thanks

[dutch]

Dear Antonio,

Dutch,

This solution may be simpler and we don't need to modify the existing code:

Code: Select all  Expand view

METHOD CreateButton() CLASS TGet

      ... the button is created ...

      if Upper( ::oWnd:ClassName() ) == "TDIALOG" .and. ::oWnd:lResize16
         ::oBtn:nWidth  = ::nHeight - 5
         ::oBtn:nHeight = ::nHeight - 5
         ::oBtn:nLeft   = ( ::nWidth * 1.167 ) - ::nHeight
      endif   

      ...


I appreciate your feedback, thanks

How can I add this line into Fiveh.lib (I've used Harbour (FTDN) now)?

Thanks&regards,
Dutch

[Antonio Linares]

Dutch,

You can modify FWH\source\classes\tget.prg and compile it and link it as another PRG of your application.

Or once you have the compiled OBJ then replace it in FiveHC.lib using tlib.exe

[dutch]

Dear Antonio,

I use this batch file but it is not successful.

Code: Select all  Expand view

@ECHO OFF
CLS
set hdir=d:\harbour
set bcdir=d:\bcc55\bin

%hdir%\bin\harbour TGET.PRG /n /id:\fwh\include;%hdir%\include /oTGET.C
%bcdir%\bcc32 -M -c -D__HARBOUR__ -I%hdir%\include  -oTGET.OBJ  TGET.C

%bcdir%\tlib d:\fwh\lib\fivehc.lib + TGET.OBJ


Dutch,

You can modify FWH\source\classes\tget.prg and compile it and link it as another PRG of your application.

Or once you have the compiled OBJ then replace it in FiveHC.lib using tlib.exe

Thanks&Regards,
Dutch

[dutch]

Dear Antonio,

I still try but not successful.

Regards,
Dutch

Dear Antonio,

I use this batch file but it is not successful.

Code: Select all  Expand view

@ECHO OFF
CLS
set hdir=d:\harbour
set bcdir=d:\bcc55\bin

%hdir%\bin\harbour TGET.PRG /n /id:\fwh\include;%hdir%\include /oTGET.C
%bcdir%\bcc32 -M -c -D__HARBOUR__ -I%hdir%\include  -oTGET.OBJ  TGET.C

%bcdir%\tlib d:\fwh\lib\fivehc.lib + TGET.OBJ


Dutch,

You can modify FWH\source\classes\tget.prg and compile it and link it as another PRG of your application.

Or once you have the compiled OBJ then replace it in FiveHC.lib using tlib.exe

Thanks&Regards,
Dutch

[dutch]

Dear Antonio,

It must replace in FIVEH.LIB instead of FIVEHC.LIB. It works as expectation now.

Regards,
Dutch

Dutch,

You can modify FWH\source\classes\tget.prg and compile it and link it as another PRG of your application.

Or once you have the compiled OBJ then replace it in FiveHC.lib using tlib.exe

[Antonio Linares]

Dutch,

Yes, you are right, my mistake. FiveHC.lib is only for compiled C modules.

[dutch]

Dear Antonio,

Thanks for your kindness help.
Dutch