FiveTech Software tech support forums

www.FiveTechSoft.com
https://forums.fivetechsupport.com/

New FWH 24.09

https://forums.fivetechsupport.com/viewtopic.php?t=44966

Page 4 of 7

Re: New FWH 24.09

Posted: Tue Oct 15, 2024 5:31 am
by TimStone
That will be a newer version so you need to change that in the code and also whtever they say for a license number


Sent from my iPhone using Tapatalk

Re: New FWH 24.09

Posted: Tue Oct 15, 2024 6:29 am
by Antonio Linares
It is not included in the demo version!

Re: New FWH 24.09

Posted: Tue Oct 15, 2024 1:24 pm
by karinha
Master Nages, see if this is ok or if you need anything else, please.

Maestro Nages, vea si esto está bien o si necesita algo más, por favor.

Code: Select all | Expand

// C:\FWH\SAMPLES\NAGESCHR.PRG

#include "FiveWin.ch"

REQUEST HB_LANG_PT
REQUEST HB_CODEPAGE_PT850

FUNCTION Main()

   HB_LANGSELECT( 'PT' )     // Default language is now Portuguese

// HB_SETCODEPAGE( "PT850" ) // NO FUNCIONA NI CON ASC(195) Increible.

// HB_CDPSELECT( "PTISO" )

// MsgInfo( "JO"   + CHR(194) + "O"   ) // Similar

   MsgInfo( "JO"   + CHR(195) + "O"   ) // Correct: JOÃO - João

// MsgInfo( "JO"   + CHR(196) + "O"   ) // Similar

   //-> 226, 227, 228, 229(similars)
   MsgInfo( "Jo"   + CHR(227) + "o"   ) // Correct: JOÃO - João

   MsgInfo( "M"    + CHR(193) + "RIO" ) // Correct: MÁRIO - Mário

   MsgInfo( "M"    + CHR(225) + "rio" ) // Correct: MÁRIO - Mário

   MsgInfo( "N"    + CHR(193) + "GES" )

   MsgInfo( "N"    + CHR(225) + "ges" )

   MsgInfo( "ELI"  + CHR(201) + "ZER" ) // Correct: Eliézer

   MsgInfo( "Eli"  + CHR(233) + "zer" ) // Correct: Eliézer

   MsgInfo( "ANT"  + CHR(212) + "NIO" ) // Correct: Antônio Liñares Cañas

   MsgInfo( "Ant"  + CHR(244) + "nio" ) // Correct: Antônio Liñares Cañas


RETURN NIL

// FIN / END - kapiabafwh@gmail.com
 
https://dicas.ufpa.br/progra/arq-asc.htm

I will charge the customer dearly. Preferably in Dollars. hahahaha.

Regards, saludos.

Re: New FWH 24.09

Posted: Tue Oct 15, 2024 4:29 pm
by karinha
Master Nages, if I use "PTISO", as in the example below, everything works correctly. As I don't understand CODEPAGE, I don't know if it's correct or not.

Maestro Nagés, si uso "PTISO", como en el ejemplo siguiente, todo funciona correctamente. Como no entiendo CODEPAGE no sé si es correcto o no.

Code: Select all | Expand

// C:\FWH\SAMPLES\NAGESCHR.PRG - Version 2 - CON "PTISO"

#include "FiveWin.ch"

REQUEST HB_LANG_PT
REQUEST HB_CODEPAGE_PT850
REQUEST HB_CODEPAGE_PTISO

FUNCTION Main()

   HB_LANGSELECT( 'PT' )     // Default language is now Portuguese

   SET(_SET_CODEPAGE,"PT850")
   SET(_SET_CODEPAGE,"PTISO")

// MsgInfo( HB_SetCodePage() ) // "PTISO"

// MsgInfo( "JO"   + CHR(194) + "O"   ) // Similar

   MsgInfo( "JO"   + CHR(195) + "O"   ) // Correct: JOÃO - João

// MsgInfo( "JO"   + CHR(196) + "O"   ) // Similar

   //-> 226, 227, 228, 229(similars)
   MsgInfo( "Jo"   + CHR(227) + "o"   ) // Correct: JOÃO - João

   MsgInfo( "M"    + CHR(193) + "RIO" ) // Correct: MÁRIO - Mário

   MsgInfo( "M"    + CHR(225) + "rio" ) // Correct: MÁRIO - Mário

   MsgInfo( "N"    + CHR(193) + "GES" )

   MsgInfo( "N"    + CHR(225) + "ges" )

   MsgInfo( "ELI"  + CHR(201) + "ZER" ) // Correct: Eliézer

   MsgInfo( "Eli"  + CHR(233) + "zer" ) // Correct: Eliézer

   MsgInfo( "ANT"  + CHR(212) + "NIO" ) // Correct: Antônio Liñares Cañas

   MsgInfo( "Ant"  + CHR(244) + "nio" ) // Correct: Antônio Liñares Cañas


RETURN NIL

// FIN / END - kapiabafwh@gmail.com .and. jairfab@gmail.com
 
Regards, saludos

Re: New FWH 24.09

Posted: Tue Oct 15, 2024 5:38 pm
by karinha
Now more confused than a dog on moving day. hahaha.

All commands work perfectly. I don't understand what changed.

Ahora más confundido que un perro el día de una mudanza. jajaja.

Todos los comandos funcionan perfectamente. No entiendo qué cambió.

Code: Select all | Expand

// C:\FWH\SAMPLES\NAGESCH3.PRG - Version 3 - CON "PTISO"

#include "FiveWin.ch"

REQUEST HB_LANG_PT, HB_CODEPAGE_PTISO, HB_CODEPAGE_PT850

FUNCTION Main()

   LOCAL cTexto  := "MAÇÃ VERDE"
   LOCAL cTexto2 := "MA€Ç VERDE" // green apple - Modo consola.

   SET(_SET_CODEPAGE,"PTISO") // MAÇÃ VERDE -> green apple

   ? "PTISO: ", cTexto, OemToAnsi( cTexto2 ) // Correct

   SET(_SET_CODEPAGE,"CP437")

   ? "CP437: ", cTexto, OemToAnsi( cTexto2 ) // Correct

   SET(_SET_CODEPAGE,"UTF8")

   ? "UTF8: ", cTexto, OemToAnsi( cTexto2 )  // Correct

   SET(_SET_CODEPAGE,"CP850")

   ? "CP850: ", cTexto, OemToAnsi( cTexto2 ) // Correct

RETURN NIL

Simplemente no funciona con:

SET(_SET_CODEPAGE,"PT850")

// FIN / END - kapiabafwh@gmail.com .and.  jairfab@gmail.com
 
Regards, saludos.

Re: New FWH 24.09

Posted: Tue Oct 15, 2024 10:19 pm
by TimStone
Antonio,

In order for a demo to work, they must issue some type of license code. It would be in the documentation.

The license is tied to the specific version you own. I have not been upgrading because the cost is so high. They used to offer just the Calendar version but now you have to buy the whole suite.

Of course this has to do with the Panels. You might want to try some tests creating a couple of panels without this specific application and see how that works. Perhaps in the change log you will see what code was modified that may be causing this problem.

As I said, the difference is between 2407 and 2409. Everything in my code, libraries, and compiler/linker is the same for both builds. It works in 07 but not 09.

Tim

Re: New FWH 24.09

Posted: Wed Oct 16, 2024 10:13 am
by nageswaragunupudi
As I said, the difference is between 2407 and 2409. Everything in my code, libraries, and compiler/linker is the same for both builds. It works in 07 but not 09.
Regret the inconvenience.
Please apply this fix:

source\classes\tpanel.prg

Code: Select all | Expand

METHOD New( nTop, nLeft, nBottom, nRight, oWnd, lDesign, cVarName, lBorder ) CLASS TPanel

   DEFAULT nTop := 0, nLeft := 0, nBottom := 100, nRight := 100,;
           oWnd := GetWndDefault(), lDesign := .F., lBorder := .F.

   ::lUnicode  = FW_SetUnicode()
/*
   ::nTop    = nTop
   ::nLeft   = nLeft
   ::nBottom = nBottom
   ::nRight  = nRight
*/
   ::oWnd    = oWnd
 
Please remove the comments:
Should be like this:

Code: Select all | Expand

METHOD New( nTop, nLeft, nBottom, nRight, oWnd, lDesign, cVarName, lBorder ) CLASS TPanel

   DEFAULT nTop := 0, nLeft := 0, nBottom := 100, nRight := 100,;
           oWnd := GetWndDefault(), lDesign := .F., lBorder := .F.

   ::lUnicode  = FW_SetUnicode()

   ::nTop    = nTop
   ::nLeft   = nLeft
   ::nBottom = nBottom
   ::nRight  = nRight

   ::oWnd    = oWnd
 

Re: New FWH 24.09

Posted: Thu Oct 17, 2024 2:59 am
by TimStone
Thank you.

It is working now.

Tim

Re: New FWH 24.09

Posted: Thu Oct 17, 2024 11:46 am
by karinha
Very good Tim. One less problem in this version. Waiting for a solution with OemToAnsi() and CodePage(). I have unshakable faith in Mister Rao.

Muy bien Tim. Un problema menos en esta versión. Esperando una solución con OemToAnsi() y CodePage(). Tengo una fe inquebrantable en el señor Rao.

Regards, saludos.

Re: New FWH 24.09

Posted: Fri Oct 18, 2024 7:27 am
by nageswaragunupudi
Waiting for a solution with OemToAnsi() and CodePage()
Do you have problem with FWH1905 or FWH2409 only?

Re: New FWH 24.09

Posted: Fri Oct 18, 2024 10:25 am
by karinha
nageswaragunupudi wrote:
Waiting for a solution with OemToAnsi() and CodePage()
Do you have problem with FWH1905 or FWH2409 only?
Master Nages, COMPILE please, the program will speak for me.

Maestro Nages, COMPILA por favor, el programa hablará por mí.

Code: Select all | Expand

// -> By Joao Santos - Sao Paulo - Brazil - kapiabafwh@gmail.com
// -> Participacao Especial, Vailton Renato - renato@kssoftware.com.br

#include "FiveWin.Ch"

STATIC oDlgRelog, oTimerRelog, lDesliga := .F., oWnd, oTimerPorta
STATIC oFnt, oSaida, oBtnTimer, oGetRao

FUNCTION RELOG()

   LOCAL oSayMens, oFnt2, aGrad, oSayRao

   oSayMens := "FWH24.09 it's Terrible! JESUS!!"
   oSayRao  := "FWH24.09: Fix OemtoAnsi() RAO!!"

   aGrad := { { 0.30, CLR_BLACK, CLR_YELLOW }, { 0.70, CLR_YELLOW, CLR_BLACK } }

   DEFINE FONT oFnt  NAME "Arial" SIZE 08,  20 BOLD
   DEFINE FONT oFnt2 NAME "Arial" SIZE 00, -12 BOLD

   DEFINE DIALOG oDlgRelog FROM 3, 3 TO 20, 50                               ;
      TITLE "Test of Message with Timer"                                     ;
      GRADIENT aGrad TRANSPARENT STYLE nOR( DS_MODALFRAME )

   oDlgRelog:lHelpIcon := .F.

   @ .5, 07 SAY oSayMens OF oDlgRelog SIZE 100, 12                           ;
      COLOR CLR_BLACK, CLR_WHITE TRANSPARENT ADJUST UPDATE

   @  5.50, 05 GET oGetRao VAR oSayRao OF oDlgRelog SIZE 120, 10 PICTURE "@" ;
      COLORS METRO_MAGENTA, CLR_WHITE UPDATE NOBORDER CENTER

   @ 5, 09 BUTTON oBtnTimer PROMPT "&Click-me Rao" OF oDlgRelog              ;
      SIZE 70, 16 ACTION( ACIONA_TIMER( oWnd ) )

   oBtnTimer:cToolTip := "Timer Action Rao"

   SET FONT OF oBtnTimer TO oFnt
   SET FONT OF oDlgRelog TO oFnt2

   ACTIVATE DIALOG oDlgRelog CENTERED ON INIT( oGetRao:Hide() )

   IF lDesliga

      oTimerRelog:DeActivate()
      oTimerPorta:DeActivate()

   ENDIF

   oFnt:End()
   oFnt2:End()

RETURN NIL

FUNCTION ACIONA_TIMER( oWnd )

   DEFINE TIMER oTimerPorta INTERVAL 50  OF oDlgRelog                        ;
      ACTION ACIONA_RELOGIO( oWnd )

   ACTIVATE TIMER oTimerPorta

RETURN NIL

FUNCTION ACIONA_RELOGIO( oWnd )

   LOCAL oFont

   DEFINE FONT oFont NAME "Arial" SIZE  0, -70 BOLD
   DEFINE FONT oFnt  NAME "Arial" SIZE 08,  20 BOLD

   DEFINE TIMER oTimerRelog INTERVAL 50                                      ;
      ACTION ExibeRelogio()

   ACTIVATE TIMER oTimerRelog

   SET FONT OF oDlgRelog TO oFont
   SET FONT OF oBtnTimer TO oFnt

   oFont:End()

   lDesliga := .T.  // -> Para Desligar o Timer

   oTimerPorta:DeActivate()

RETURN NIL

FUNCTION ExibeRelogio()

   LOCAL NewMensa := "FWH24.09 RAO!"

   // Mensageria
   IF ISWINDOWVISIBLE( oDlgRelog:hWnd )

      oDlgRelog:Say( 3, 01, NewMensa,                                      ;
         CLR_YELLOW, CLR_BLACK,, .F. )
      // .T. Esquerda - .F. Direita da Dialog.

      oGetRao:Show()

   ENDIF

RETURN NIL

// FIN / END - kapiabafwh@gmail.com .and. jairfab@gmail.com
 
Regards, saludos.

Re: New FWH 24.09

Posted: Fri Oct 18, 2024 10:33 am
by nageswaragunupudi
nageswaragunupudi wrote:
Waiting for a solution with OemToAnsi() and CodePage()
Do you have problem with FWH1905 or FWH2409 only?
Please reply this first.

And as I told you several times, do not post programs or send programs,
OemAnsi functions do not work the same way in different countries, in particular between Brazlil and other country installations.
Let us only communicate with ASC values or HEX.
I am going to explain to you in my next postings why I am saying this.
We will also clarify different OEM and ANSI codepages as well as the common UTF8 codepage

For now, let us go step by step please. This way we will find solutions faster.

Again, I repeat do you have these problems in FWH1905 or FWH2409 ?

Re: New FWH 24.09

Posted: Fri Oct 18, 2024 11:00 am
by karinha
FWH2409 only!!

Master Nages, pay attention to the previous answers.

https://forums.fivetechsupport.com/view ... a1#p274815

Gracias, tks.

Regards, saludos.

Re: New FWH 24.09

Posted: Sat Oct 19, 2024 2:40 pm
by karinha
Good morning Master Nages, I don't know what changed in CODEPAGE.LIB, my question is what should I use now for the Portuguese language:

Buenos días Maestro Nages, no sé qué cambió en CODEPAGE.LIB, mi pregunta es qué debo usar ahora para el idioma portugués:

Code: Select all | Expand

Portuguese 850 PT850 
Portuguese ISO-8859-1 PTISO
 
???

Gracias, tks.

Regards, saludos.

Re: New FWH 24.09

Posted: Sat Oct 19, 2024 2:46 pm
by karinha
Buenos días maestro Enrico, pregunta: ¿Por qué HARBOUR tiene este COMANDO y XHARBOUR no?

Good morning master Enrico, question: Why does HARBOUR have this COMMAND, and XHARBOUR doesn't?

Code: Select all | Expand

REQUEST HB_CODEPAGE_UTF8EX
 
Gracias, tks.

Regards, saludos.
All times are UTC
Page 4 of 7

Powered by phpBB® Forum Software © phpBB Limited