New FWH 24.09

[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

[Antonio Linares]

It is not included in the demo version!

[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 view  RUN

// 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.

[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 view  RUN

// 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

[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 view  RUN

// 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.

[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

[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 view  RUN

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 view  RUN

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
 

[TimStone]

Thank you.

It is working now.

Tim

[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.

[nageswaragunupudi]

Waiting for a solution with OemToAnsi() and CodePage()

Do you have problem with FWH1905 or FWH2409 only?

[karinha]

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 view  RUN

// -> 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.

[nageswaragunupudi]

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 ?

[karinha]

FWH2409 only!!

Master Nages, pay attention to the previous answers.

https://forums.fivetechsupport.com/viewtopic.php?f=3&t=44966&start=45&sid=71844da70f21d39917f690a1d795e4a1#p274815

Gracias, tks.

Regards, saludos.

[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 view  RUN

Portuguese 850 PT850
Portuguese ISO-8859-1 PTISO
 

???

Gracias, tks.

Regards, saludos.

[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 view  RUN

REQUEST HB_CODEPAGE_UTF8EX
 

Gracias, tks.

Regards, saludos.