New FWH 24.09

[Antonio Linares]

viewtopic.php?f=16&t=44965&start=0

[karinha]

Masters Antônio/Nages, can you please compile this small example with this version and show an image?

Maestro Antônio/Nages, ¿podrían compilar este pequeño ejemplo con esta versión y mostrar una imagen?

-> SkinButtons() // Problemas con este comando en versiones nuevas?

Code: Select all  Expand view

// C:\FWH\SAMPLES\LEANDGET.PRG - By Kapiaba.

#Include "FiveWin.ch"

FUNCTION Main()

   LOCAL oDlg, oBtn, oBtn2, oFont, oBold, oSay
   LOCAL oGet1, oGet2, oGet3, oGet4, oGet5
   LOCAL cVar1, cVar2, cVar3, cVar4

   cVar1 := 0
   cVar2 := 0
   cVar3 := 50000.00
   cVar4 := 0

   SkinButtons() // Problemas con este comando en versiones nuevas?

   DEFINE FONT oFont NAME 'Tahoma' SIZE 0, -16 BOLD
   DEFINE FONT oBold NAME 'Tahoma' SIZE 0, -14 BOLD

   DEFINE DIALOG oDlg TITLE "Quitar o mostrar button action de un get" PIXEL ;
      SIZE 320, 300 TRANSPARENT COLOR METRO_EMERALD, CLR_WHITE FONT oBold

   oDlg:lHelpIcon := .F.

   @ 56,10 SAY oSay PROMPT "José Alvares, ¡seguro que lo haces mejor!"       ;
      FONT oBold SIZE 155, 20 PIXEL OF oDlg TRANSPARENT UPDATE               ;
      COLORS METRO_ORANGE, CLR_WHITE

   @ 10, 10 GET oGet1 VAR cVar1 bitmap "..\bitmaps\on.bmp" ;
      ACTION( msginfo( "With Transparent" ) ) OF oDlg PIXEL SIZE 60, 12

   oGet1:lBtnTransparent := .T.       // transparent button get oGet1

   @ 40, 10 GET oGet2 VAR cVar2 bitmap "..\bitmaps\on.bmp" ;
      ACTION( msginfo( "Without Transparent" ) ) of oDlg PIXEL SIZE 60, 12

   // CON IMAGEN AL INICIO - SHOW() AL INICIO.
   @ 70, 10 GET oGet3 VAR cVar3 bitmap "..\bitmaps\chkyes.bmp" OF oDlg       ;
      PIXEL SIZE 120, 12 ACTION( msginfo( "With Adjust-Transparent" ) )

   oGet3:lAdjustBtn      := .T.
   oGet3:nClrTextDis     := CLR_WHITE // Color text disable status
   oGet3:nClrPaneDis     := CLR_BLUE  // Color Pane disable status

   // SIN IMAGEN - HIDE() AL INICIO.
   @ 70, 10 GET oGet4 VAR cVar3 OF oDlg PIXEL SIZE 120, 12

   oGet4:lDisColors      := .F.       // Deactive disable color
   oGet4:nClrTextDis     := CLR_WHITE // Color text disable status
   oGet4:nClrPaneDis     := CLR_BLUE  // Color Pane disable status

   @ 100, 10 GET oGet5 VAR cVar4 bitmap "..\bitmaps\chkyes.bmp" OF oDlg      ;
      PIXEL SIZE 120, 12 ACTION( msginfo( "With Adjust-Transparent" ) )

   oGet5:lAdjustBtn      := .T.
   oGet5:nClrTextDis     := CLR_WHITE // Color text disable status
   oGet5:nClrPaneDis     := CLR_BLUE  // Color Pane disable status

   @ 130, 10 BTNBMP oBtn PROMPT "Con Image" CENTER SIZE 50, 14 PIXEL OF oDlg  ;
      NOROUND 2007 FONT oFont                                                 ;
      ACTION( CON_IMAGE_IN_GET( oBtn, oGet3, oGet4, oDlg ) )

   @ 130, 80 BTNBMP oBtn2 PROMPT "Sin Image" CENTER SIZE 50, 14 PIXEL OF oDlg ;
      NOROUND 2007 FONT oFont                                                 ;
      ACTION( SIN_IMAGE_IN_GET( oBtn2, oGet3, oGet4, oDlg ) )

   ACTIVATE DIALOG oDlg CENTERED ON INIT( oGet4:Hide() )

    oFont:End()
    oBold:End()

RETURN NIL

FUNCTION CON_IMAGE_IN_GET( oBtn, oGet3, oGet4, oDlg )

   oGet4:Hide()

   oDlg:Update()

   oGet3:Show()

   oDlg:Update()

   // oBtn:Disable()
   // oBtn:Refresh()

RETURN( .T. )

FUNCTION SIN_IMAGE_IN_GET( oBtn2, oGet3, oGet4, oDlg )

   oGet3:Hide()

   oDlg:Update()

   oGet4:Show()

   oDlg:Update()

   // oBtn2:Disable()
   // oBtn2:Refresh()

RETURN( .T. )

// FIN / END - kapiabafwh@gmail.com
 

Regards, saludos.

[nageswaragunupudi]

Is this correct?


Please let me know if there is something wrong.

[karinha]

NO! The correct one has always been like this:

NO! La correcta siempre ha sido así:

https://imgur.com/LLbOmUk



Por favor corrija.

Please correct.

Gracias, tks.

Regards, saludos.

[karinha]

Mestre Nages: Now please compile this example, using GDIPLUS, see what the ampersand looks like.

Maestro Nages: Ahora, por favor compila este ejemplo, usando GDIPLUS, mira cómo se ve el signo comercial.

Code: Select all  Expand view

// C:\FWH\SAMPLES\LEANDGET.PRG - By Kapiaba. Version con GDIPLUS.

#Include "FiveWin.ch"

FUNCTION Main()

   LOCAL oDlg, oBtn, oBtn2, oFont, oBold, oSay
   LOCAL oGet1, oGet2, oGet3, oGet4, oGet5
   LOCAL cVar1, cVar2, cVar3, cVar4

   cVar1 := 0
   cVar2 := 0
   cVar3 := 50000.00
   cVar4 := 0

   SkinButtons()  // en FWH19.05 funciona perfecto!

   DEFINE FONT oFont NAME 'Tahoma' SIZE 0, -16 BOLD
   DEFINE FONT oBold NAME 'Tahoma' SIZE 0, -14 BOLD

   DEFINE DIALOG oDlg TITLE "Quitar o mostrar button action de un get - " + ;
      FWVERSION PIXEL SIZE 320, 300 TRANSPARENT                             ;
      COLOR METRO_EMERALD, CLR_WHITE FONT oBold

   oDlg:lHelpIcon := .F.

   @ 56,10 SAY oSay PROMPT "José Alvares, ¡seguro que lo haces mejor!"       ;
      FONT oBold SIZE 155, 20 PIXEL OF oDlg TRANSPARENT UPDATE               ;
      COLORS METRO_ORANGE, CLR_WHITE

   @ 10, 10 GET oGet1 VAR cVar1 bitmap "..\bitmaps\on.bmp" ;
      ACTION( msginfo( "With Transparent" ) ) OF oDlg PIXEL SIZE 60, 12

   oGet1:lBtnTransparent := .T.       // transparent button get oGet1

   @ 40, 10 GET oGet2 VAR cVar2 bitmap "..\bitmaps\on.bmp" ;
      ACTION( msginfo( "Without Transparent" ) ) of oDlg PIXEL SIZE 60, 12

   // CON IMAGEN AL INICIO - SHOW() AL INICIO.
   @ 70, 10 GET oGet3 VAR cVar3 bitmap "..\bitmaps\chkyes.bmp" OF oDlg       ;
      PIXEL SIZE 120, 12 ACTION( msginfo( "With Adjust-Transparent" ) )

   oGet3:lAdjustBtn      := .T.
   oGet3:nClrTextDis     := CLR_WHITE // Color text disable status
   oGet3:nClrPaneDis     := CLR_BLUE  // Color Pane disable status

   // SIN IMAGEN - HIDE() AL INICIO.
   @ 70, 10 GET oGet4 VAR cVar3 OF oDlg PIXEL SIZE 120, 12

   oGet4:lDisColors      := .F.       // Deactive disable color
   oGet4:nClrTextDis     := CLR_WHITE // Color text disable status
   oGet4:nClrPaneDis     := CLR_BLUE  // Color Pane disable status

   @ 100, 10 GET oGet5 VAR cVar4 bitmap "..\bitmaps\chkyes.bmp" OF oDlg      ;
      PIXEL SIZE 120, 12 ACTION( msginfo( "With Adjust-Transparent" ) )

   oGet5:lAdjustBtn      := .T.
   oGet5:nClrTextDis     := CLR_WHITE // Color text disable status
   oGet5:nClrPaneDis     := CLR_BLUE  // Color Pane disable status

   @ 130, 10 BTNBMP oBtn PROMPT "&Con Image" CENTER SIZE 50, 14 PIXEL OF oDlg ;
      NOROUND 2007 FONT oFont                                                 ;
      ACTION( CON_IMAGE_IN_GET( oBtn, oGet3, oGet4, oDlg ) ) GDIPLUS

   @ 130, 80 BTNBMP oBtn2 PROMPT "&Sin Image" CENTER SIZE 50, 14 PIXEL OF oDlg;
      NOROUND 2007 FONT oFont                                                 ;
      ACTION( SIN_IMAGE_IN_GET( oBtn2, oGet3, oGet4, oDlg ) ) GDIPLUS

   ACTIVATE DIALOG oDlg CENTERED ON INIT( oGet4:Hide() )

    oFont:End()
    oBold:End()

RETURN NIL

FUNCTION CON_IMAGE_IN_GET( oBtn, oGet3, oGet4, oDlg )

   oGet4:Hide()

   oDlg:Update()

   oGet3:Show()

   oDlg:Update()

   // oBtn:Disable()
   // oBtn:Refresh()

RETURN( .T. )

FUNCTION SIN_IMAGE_IN_GET( oBtn2, oGet3, oGet4, oDlg )

   oGet3:Hide()

   oDlg:Update()

   oGet4:Show()

   oDlg:Update()

   // oBtn2:Disable()
   // oBtn2:Refresh()

RETURN( .T. )

// FIN / END - kapiabafwh@gmail.com
 

Gracias, tks.

Regards, saludos.

[nageswaragunupudi]

using GDIPLUS, see what the ampersand looks like.

I noticed this and will provide a fix.

[nageswaragunupudi]

NO! The correct one has always been like this:

I am looking into this and will get back soon.

[karinha]

Master Nages, another problem reported. the OemToAnsi() command is not working correctly.

Maestro Nages, se informó otro problema. el comando OemToAnsi() no funciona correctamente.

Code: Select all  Expand view

   MsgInfo( OemToAnsi( "INDEX: TODOS OS ÖNDICES, CRIADOS COM SUCESSO!" ), ;
            OemToAnsi( "INDEX: TODOS OS ÖNDICES, CRIADOS COM SUCESSO!" ) )
 

Regards, saludos.

[nageswaragunupudi]

Master Nages, another problem reported. the OemToAnsi() command is not working correctly.

Maestro Nages, se informó otro problema. el comando OemToAnsi() no funciona correctamente.

Code: Select all  Expand view

   MsgInfo( OemToAnsi( "INDEX: TODOS OS ÖNDICES, CRIADOS COM SUCESSO!" ), ;
            OemToAnsi( "INDEX: TODOS OS ÖNDICES, CRIADOS COM SUCESSO!" ) )
 

Regards, saludos.

Please reproduce here the OEM text and corresponding ANSI text ( correct and as reported by FWH). That helps me a lot in my testing.

Please also note that OEM->ANSI and ANSI->Utf8 may change with codepages and also the default codepages installed by default in different countries.
Please help me with as much information you can give
When you type here the OEM, better you give in Hex also.
Same way with ANSI

[karinha]

Master Nagé, please compile this short example and show an image for us all to see.
Then I show the correct way in FWH1905.

Maestro Nages, compile este pequeño ejemplo y muéstrenos una imagen para que todos la veamos.
Luego muestro la forma correcta en FWH1905.

Code: Select all  Expand view

// C:\FWH\SAMPLES\INDEXERR.PRG - error in OemtoAnsi() - by Kapiaba.

#include "FiveWin.ch"

REQUEST HB_LANG_PT
REQUEST HB_CODEPAGE_PT850

ANNOUNCE RDDSYS
REQUEST OrdKeyNo, OrdKeyCount, OrdCreate, OrdKeyGoto // Para ListBox
REQUEST DBFCDX, DBFFPT

FUNCTION Main()

   FIELD FIRST, LAST, STREET, CITY, STATE

   HB_LANGSELECT( 'PT' )     // Default language is now Portuguese
   HB_SETCODEPAGE( "PT850" )

   RDDSETDEFAULT("DBFCDX")
   RDDREGISTER( "DBFCDX", 1 )

   USE CUSTOMER

   INDEX ON FIRST  TAG 01 TO CUSTOMER

   INDEX ON LAST   TAG 02 TO CUSTOMER

   INDEX ON STREET TAG 03 TO CUSTOMER

   INDEX ON CITY   TAG 04 TO CUSTOMER

   INDEX ON STATE  TAG 05 TO CUSTOMER

   SET ORDER TO 01

   GO TOP

   // *The word "INDICES" does not return accented correctly.*
   MsgInfo( OemToAnsi( "INDEX: TODOS OS ÖNDICES, CRIADOS COM SUCESSO!" ), ;
            OemToAnsi( "INDEX: TODOS OS ÖNDICES, CRIADOS COM SUCESSO!" ) )

   BROWSE()

   dbCloseArea()

RETURN NIL

// FIN / END - kapiabafwh@gmail.com
 

Regards, saludos.

[nageswaragunupudi]

Mr. João Santos

Can you please execute this small program and let me know the results?

Code: Select all  Expand view

#include "fivewin.ch"

function Main()

   // before setting codepage
   ? GetOEMCP(), GetACP(), HBCDP()
   HB_SETCODEPAGE( "PT850" )
   ? GetOEMCP(), GetACP(), HBCDP()

return nil
 

The results may vary from country to country depending on the language of installation of Windows.
When I execute in India ( English installation), the results are:

Code: Select all  Expand view

437, 1252, 0
437, 1252, 850

[karinha]

Master Nages:

Code: Select all  Expand view

Turbo Incremental Link 6.97 Copyright (c) 1997-2022 Embarcadero Technologies, Inc.

Error: Unresolved external '_HB_FUN_GETOEMCP' referenced from C:\FWH1905\SAMPLES\CODEPL.OBJ
Error: Unresolved external '_HB_FUN_GETACP' referenced from C:\FWH1905\SAMPLES\CODEPL.OBJ
Error: Unresolved external '_HB_FUN_HBCDP' referenced from C:\FWH1905\SAMPLES\CODEPL.OBJ

Error: Unable to perform link
* Linking errors *
 

Regards, saludos.

[nageswaragunupudi]

Are you using Harbour or xHarbour?
I guess you are using FWH2409. Am I right? If not what version are you using?

[karinha]

master nages:

FWH1905 and XHARBOUR. The errors reported are from users that I or your technical support, understand?

Gracias, tks.

Regards, saludos.

[karinha]

Master Nages, I asked them to compile the example with FWH2409 and the result was:
850 - 1252 - 0
and
850 - 1252 - 850
Is it correct for Portuguese?

Maestro Nages, les pedí que compilaran el ejemplo con FWH2409 y el resultado fue:
850-1252-0
y
850 - 1252 - 850
¿Es correcto para el portugués?

Si es posible, publique las funciones en C, así puedo probarlas en FWH1905 y ver si el resultado es el mismo, ¿podría ser, por favor?

If possible, post the functions in C, so I can test them in FWH1905 and see if the result is the same, could it be, please?

Gracias, tks.

Regards, saludos.