Fwh 23.10 TGet another problem (UNSOLVED)

[Horizon]

Are you using Windows Manifest while testing this sample?

Yes Mr. Rao.

I use theme. I have removed and it says always "ANSI GET" but Turkish characters gone in TGet.

I have added theme your sample and says "UTF8 GET".

Code: Select all  Expand view  RUN

1 24 "WindowsXP.Manifest"

[nageswaragunupudi]

I have added theme your sample and says "UTF8 GET".

Yes.

but Turkish characters gone in TGet.

It is the other way round here

I will get back.

[nageswaragunupudi]

Mr. Rao,

Your welcome. I'm not use any third party components or activex.

Best regards,

Mr. Ertan
Can we give you some more trouble?
Do you get the same behavior as Mr. Hakkan when you add manifest to my sample? Do you see ANSI GET changing to UTF8 GET?

[ertan]

Hi Mr. Rao,

No. Not changed. Always "ANSI GET"

Best Regards,

[ertan]

Mr. Rao,

With or without manifest always "ANSI GET". But Turkish character not lost, displaying correctly.

I am a good listener and reader.
I can't add screenshot or gif animate attachment. Forum rules? My Message count is less or problem?

Best Regards,

[Antonio Linares]

Dear Ertan,

The best way to post images here on the forums is to open a free account on github, then create a repo (very easy) and upload your images there.

Then use the "Img" button here and copy the image (raw) url fom github

many thanks

[karinha]

Mr. Rao,

With or without manifest always "ANSI GET". But Turkish character not lost, displaying correctly.

I am a good listener and reader.
I can't add screenshot or gif animate attachment. Forum rules? My Message count is less or problem?

Best Regards,

https://imgur.com/

Regards, saludos.

[nageswaragunupudi]

Mr. Ertan

Is it possible for you to send these two libs from your fwh\lib folder of FWH2310?
FIVEH.LIB
FIVEHC.LIB
to my email address
nageswaragunupudi [at] gmail [dot] com?
Thanks in advance

[Horizon]

Hi Mr. Rao,

I have installed fwh 23.10 and the harbour folder on a friend's computer who has Visual Studio 2022 installed.

I have compiled the sample program you sent using buildh32.bat in sample directory.
The results were exactly like on my own computer. In other words, when the theme is installed, "UTF8 GET" is constantly written on the screen.

[nageswaragunupudi]

Mr. Hakan
Please do not spend your time on this.
I am also getting the same problem when I installed FWH2310 and tested.
But Mr. Ertan says it is working well for him. I asked Mr.Ertan to send his libs to me. He will send after this weekend. Please wait till I test and provide you with the correctly working libs.
If necessary I will rebuild the libs for you. Please wait.

[Horizon]

up

[nageswaragunupudi]

Can you please get in touch with me on my email address

Code: Select all  Expand view  RUN

nageswaragunupudi [at] gmail [dot] com

?
I like to send you FIVEH.LIB and FIVEHC.LIB for your testing.

[nageswaragunupudi]

Also can you please build and run this program and let us know the results?

Code: Select all  Expand view  RUN

#include "fivewin.ch"

function Main()

   ? HB_CDPUNIID(), GetACP(), GetOEMCP()

return nil

#pragma BEGINDUMP

#include <windows.h>
#include <hbapi.h>

HB_FUNC( GETACP )   { hb_retni( GetACP() ); }
HB_FUNC( GETOEMCP ) { hb_retni( GetOEMCP() ); }

#pragma ENDDUMP
 

[Horizon]

Also can you please build and run this program and let us know the results?

Code: Select all  Expand view  RUN

#include "fivewin.ch"

function Main()

   ? HB_CDPUNIID(), GetACP(), GetOEMCP()

return nil

#pragma BEGINDUMP

#include <windows.h>
#include <hbapi.h>

HB_FUNC( GETACP )   { hb_retni( GetACP() ); }
HB_FUNC( GETOEMCP ) { hb_retni( GetOEMCP() ); }

#pragma ENDDUMP
 

Hi Mr. Rao,

cp437
1254
857

When I add this lines.

Code: Select all  Expand view  RUN

REQUEST HB_CODEPAGE_TRWIN
function Main()
    HB_CDPSELECT( "TRWIN" )

cp1254
1254
857

[nageswaragunupudi]

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  RUN

#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 )