FiveTech Software tech support forums

... #define _FIVEWIN_CH #define FWCOPYRIGHT "(c) FiveTech Software, 1993-2009" #ifdef __HARBOUR__ #ifdef __XHARBOUR__ #ifndef __64__ #define FWVERSION "FWHX 9.06" #define FWDESCRIPTION "FiveWin for xHarbour" #else #define FWVERSION "FWHX64 9.06" #define FWDESCRIPTION ...

Jose,

Revisa que tengas esto dentro de FiveWin.ch:

#define FWVERSION "FWH 9.06"

Tal vez estes usando un FiveWin.ch antiguo

Rolando:

Existe FWVERSION

Ejemplo:

MsgInfo(FWVERSION)

Saludos

Sorry,

I have downloaded again. and there is no problem with FWVERSION.

Hakan,

We have just checked FiveWin.ch and it properly includes:

#define FWVERSION "FWH 9.01"

Please run fwh.exe and see what version is shown:

Antonio,

I have downloaded the 9.01. But I think you have forgetten the change of FWVERSION. Fivewin.ch still has 8.12.

Is it true or have I downloaded the wrong version? (Downloaded page says FTDN January / Enero 2009)

Hola

MsgInfo( FWVERSION )

Esta se encuentra en fivewin.ch

Angel:

A ver si esto es lo que buscas.

MsgInfo(FwVersion)

Saludos

Antonio Linares wrote:#include "FiveWin.ch"

...

MsgInfo( FWVERSION )

Thanks Antonio!

#include "FiveWin.ch"

...

MsgInfo( FWVERSION )

... testdll to tutor01 program. I modified the source of the programmes to the following: TUTOR01.PRG: // Typical Welcome message, from Windows! // FWVERSION, FWCOPYRIGHT and FWDESCRIPTION are just // some defines placed at FiveWin.ch to support four versions: // Clipper, Xbase++, Harbour/xHarbour ...

... 3D Look DEFINE FONT oFont NAME "ARIAL CE" SIZE 0, -12 DEFINE WINDOW oWnd TITLE "Test" ; MENU BuildMenu(); MENUINFO 3 SET MESSAGE OF oWnd TO FWVERSION + FWCOPYRIGHT CLOCK DATE ACTIVATE WINDOW oWnd on INIT oWnd:Center() //ON INIT (iif(password(),'',oWnd:end()) ) return nil //----------------------------------------------------------------------------// ...

... oWIND ; FROM 50,50 to 370, 550 PIXEL /* suggestion by antonio .. but no transparency @ 150,2 SAY oSay PROMPT "Revision Date "+dtoc( dEXE )+; " "+FWVERSION+" "+VERSION() PIXEL of oDLG oSay:lWantClick = .T. oSay:bLClicked = { || MsgInfo( "click" ) } */ @ 150,2 SENSITIVE SAY "Revision Date "+dtoc( ...

... DEFINE WINDOW oWnd FROM 0, 0 TO MAXROW(), MAXCOL() ; TITLE "ANALISIS MODULAR DE PROCESOS OPERATIVOS" ; MENU BuildMenu() SET MESSAGE OF oWnd ; TO FWVERSION + ", " + "AMPO By SisGEm" CENTERED KEYBOARD ACTIVATE WINDOW oWnd ON PAINT ; ( SayTexto(oWnd,"Análisis Modular de Procesos Organizacionales",oFont2,,,3 ...

MsgInfo( FWVERSION )