FiveTech Software tech support forums

nageswaragunupudi wrote:We sent you FiveH.lib and FiveHC.lib.
First please make a safe copy of your present FWH2310 folder
Then replace these two libs in your fwh\lib folder with the libs we sent you now.
Then, please test this program and provide your feedback.

Code: Select all  Expand view

#include "fivewin.ch"

REQUEST HB_CODEPAGE_TRWIN

function Main()

   local oDlg, oGet, oFont, nKey := 0
   local cText  := Space( 10 )

   HB_CDPSELECT( "TRWIN" )
   FW_SetUnicode( .f. )
   SetGetColorFocus()

   DEFINE FONT oFont NAME "Segoe UI" SIZE 0,-20 //CHARSET 162 // Use the charset that works for you

   DEFINE DIALOG oDlg SIZE 450,300 PIXEL TRUEPIXEL FONT oFont ;
      TITLE FWVERSION

   @  40, 40 GET oGet VAR cText SIZE 200,32 PIXEL OF oDlg ON CHANGE ;
      ( cText := oGet:cText, oDlg:Update() )

   oGet:bKeyChar  := { |k| nKey := k }

   @  40,300 SAY { || "Key: " + Str( nKey, 3 ) } SIZE 120,30 PIXEL OF oDlg UPDATE

   @  80, 40 SAY { || StrToHex( Trim( cText ), " " ) } SIZE 390,32 PIXEL OF oDlg UPDATE

   @ 120, 40 SAY { || ListAsc( cText ) } SIZE 390,70 PIXEL OF oDlg UPDATE

   @ 200, 40 SAY { || If( IsWindowUnicode( oGet:hWnd ), "UTF8", "ANSI" ) + ;
      " GET" } SIZE 200,32 PIXEL OF oDlg UPDATE

   @ 200,310 BUTTON "CHECK" SIZE 100,40 PIXEL OF oDlg ACTION ;
      MsgInfo( IsWindowUnicode( oGet:hWnd ) )

   odlg:brclicked := { || msginfo( IsWindowUnicode( oGet:hWnd ) ) }

   ACTIVATE DIALOG oDlg CENTERED

   cText  := Trim( cText )

   ? cText, StrToHex( cText ), IsUtf8( cText )

return nil

static function ListAsc( cText )

   local aList := {}
   local c

   cText  := Trim( cText )
   for each c in cText
      AAdd( aList, ASC( c ) )
   next

return FW_ArrayAsList( aList )

nageswaragunupudi wrote:We can not see the images

Please explain what is the problem

Code: Select all  Expand view

   Turkish               857            TR857
   Turkish               Windows-1254   TRWIN
 

karinha wrote:Hakan, what is the correct code in Türkiye?

Hakan, ¿cuál es el código correcto en Türkiye?

Code: Select all  Expand view

   Turkish               857            TR857
   Turkish               Windows-1254   TRWIN
 

https://vivaclipper.wordpress.com/2014/01/16/hb_cdpselect/

Gracias, thanks.

Regards, saludos.

Code: Select all  Expand view

Turkish               Windows-1254   TRWIN

nageswaragunupudi wrote:For Turkish, Windows default ANSI codepage is 1254 and OEM codepage is 857.
Harbour TRWIN is cp1254.

But Hakkan's problem is not with codepages or utf8/ANSI/OEM related issues.

His problem is with a Bug in TGet, where TGet hWnd changes from ANSI to Unicode window.

Otto wrote:Dear Mr. Rao,
I know it's a bit late now. But wouldn't it be better to use the Edit Controls from the Win32 API instead of the TGet?

Best regards,
Otto

Horizon wrote:Hi Mr. Rao,

Is there anything I can help with? Is there any feedback you expect from me?

Code: Select all  Expand view

15-02-2024  22:51         4,955,648 fiveH.lib
15-02-2024  22:51           851,968 fiveHC.lib
 

nageswaragunupudi wrote:

Horizon wrote:Hi Mr. Rao,

Is there anything I can help with? Is there any feedback you expect from me?

Will you please make sure you are using the libs we sent you recently?
Please check the sizes

Code: Select all  Expand view

15-02-2024  22:51         4,955,648 fiveH.lib
15-02-2024  22:51           851,968 fiveHC.lib
 

Let us make sure that by an chance your are still linking with old libraries.

I tested here before sending them to you

I would like to remind you that I am using Visual Studio 2022 32 bit and Harbour. I also use Windows manifest.

nageswaragunupudi wrote:

I would like to remind you that I am using Visual Studio 2022 32 bit and Harbour. I also use Windows manifest.

So, you are building with MSVC 32bits, not Borland C
The libs I sent you were for Borland C