New FWH 24.09

New FWH 24.09

Postby Antonio Linares » Wed Oct 02, 2024 4:12 pm

regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42122
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Re: New FWH 24.09

Postby karinha » Thu Oct 03, 2024 1:31 pm

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  RUN

// 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.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7835
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: New FWH 24.09

Postby nageswaragunupudi » Thu Oct 03, 2024 2:29 pm

Is this correct?
Image

Please let me know if there is something wrong.
Regards

G. N. Rao.
Hyderabad, India
User avatar
nageswaragunupudi
 
Posts: 10653
Joined: Sun Nov 19, 2006 5:22 am
Location: India

Re: New FWH 24.09

Postby karinha » Thu Oct 03, 2024 2:44 pm

NO! The correct one has always been like this:

NO! La correcta siempre ha sido así:

https://imgur.com/LLbOmUk

Image

Por favor corrija.

Please correct.

Gracias, tks.

Regards, saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7835
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: New FWH 24.09

Postby karinha » Thu Oct 03, 2024 2:57 pm

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  RUN

// 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.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7835
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: New FWH 24.09

Postby nageswaragunupudi » Thu Oct 03, 2024 4:00 pm

using GDIPLUS, see what the ampersand looks like.

I noticed this and will provide a fix.
Regards

G. N. Rao.
Hyderabad, India
User avatar
nageswaragunupudi
 
Posts: 10653
Joined: Sun Nov 19, 2006 5:22 am
Location: India

Re: New FWH 24.09

Postby nageswaragunupudi » Thu Oct 03, 2024 4:03 pm

NO! The correct one has always been like this:

I am looking into this and will get back soon.

Image
Regards

G. N. Rao.
Hyderabad, India
User avatar
nageswaragunupudi
 
Posts: 10653
Joined: Sun Nov 19, 2006 5:22 am
Location: India

Re: New FWH 24.09

Postby karinha » Thu Oct 03, 2024 6:09 pm

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  RUN

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


Regards, saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7835
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: New FWH 24.09

Postby nageswaragunupudi » Thu Oct 03, 2024 6:13 pm

karinha wrote: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  RUN

   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
Regards

G. N. Rao.
Hyderabad, India
User avatar
nageswaragunupudi
 
Posts: 10653
Joined: Sun Nov 19, 2006 5:22 am
Location: India

Re: New FWH 24.09

Postby karinha » Thu Oct 03, 2024 7:11 pm

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  RUN

// 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.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7835
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: New FWH 24.09

Postby nageswaragunupudi » Mon Oct 07, 2024 8:44 am

Mr. João Santos

Can you please execute this small program and let me know the results?
Code: Select all  Expand view  RUN
#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  RUN
437, 1252, 0
437, 1252, 850
Regards

G. N. Rao.
Hyderabad, India
User avatar
nageswaragunupudi
 
Posts: 10653
Joined: Sun Nov 19, 2006 5:22 am
Location: India

Re: New FWH 24.09

Postby karinha » Mon Oct 07, 2024 1:46 pm

Master Nages:

Code: Select all  Expand view  RUN

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.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7835
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: New FWH 24.09

Postby nageswaragunupudi » Mon Oct 07, 2024 4:46 pm

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

G. N. Rao.
Hyderabad, India
User avatar
nageswaragunupudi
 
Posts: 10653
Joined: Sun Nov 19, 2006 5:22 am
Location: India

Re: New FWH 24.09

Postby karinha » Mon Oct 07, 2024 4:51 pm

master nages:

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

Gracias, tks.

Regards, saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7835
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: New FWH 24.09

Postby karinha » Mon Oct 07, 2024 5:01 pm

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.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7835
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Next

Return to FiveWin for Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 47 guests