FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour Request: FiveWinVersion as number
Posts: 375
Joined: Tue Feb 10, 2015 09:48 AM
Request: FiveWinVersion as number
Posted: Mon Feb 19, 2018 08:56 AM
Hello,
sometime we need to keep the code compatible with 2 versions of fivewin, for example in 18.01 there is no more WndReadPalBmpEx that is replaced with FW_ReadImage.
in those case I would like write something like:
Code (fw): Select all Collapse
#if FWH_VER>=18
aBmpPal       :=  FW_ReadImage(,cResName)
#else
aBmpPal       :=  WndReadPalBmpEx(,cResName)
#endif

The problem is that there is no FWH_VER define, I think it would be useful in fivewin.h a define like:
Code (fw): Select all Collapse
#define FWH_VER 18.1

or better, splitted in 2 define.
Antonino
Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM
Re: Request: FiveWinVersion as number
Posted: Mon Feb 19, 2018 10:18 AM
Code (fw): Select all Collapse
function nFWVersion()
return Int( Val( Token( FWVERSION, ' ' ) ) ) + ;
            Val( Token( FWVERSION, '.' ) ) / 100
Regards



G. N. Rao.

Hyderabad, India
Posts: 375
Joined: Tue Feb 10, 2015 09:48 AM
Re: Request: FiveWinVersion as number
Posted: Mon Feb 19, 2018 03:04 PM

This will be a run-time check, my problem in this case is that "FW_ReadImage" is not defined in 17.12 so it does not link...
It is because I want a compile time check.

Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: Request: FiveWinVersion as number
Posted: Mon Feb 19, 2018 03:42 PM
Code (fw): Select all Collapse
   IF FWVERSION = "FWHX 16.12" .OR. FWVERSION = "FWHX 17.01"
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
Posts: 375
Joined: Tue Feb 10, 2015 09:48 AM
Re: Request: FiveWinVersion as number
Posted: Mon Mar 12, 2018 02:26 PM
February 2018
=============

* Enhancement: #define FW_VersionNo 18020 has been added to FiveWin.ch


YEEEEE!!!!
Many thank!!
Posts: 375
Joined: Tue Feb 10, 2015 09:48 AM
Re: Request: FiveWinVersion as number
Posted: Fri Mar 16, 2018 10:05 AM
My code now:
Code (fw): Select all Collapse
#if defined(FW_VersionNo) .and. FW_VersionNo >= 18020
   nImage := FW_ReadImage( Self, cImage )[1]
#else
   nImage := WndReadPalBmpEx( Self, cImage )[1]
#endif

Continue the discussion