nageswaragunupudi wrote:Are you using Windows Manifest while testing this sample?Yes Mr. Rao.
1 24 "WindowsXP.Manifest"I have added theme your sample and says "UTF8 GET".Yes.
but Turkish characters gone in TGet.It is the other way round here
ertan wrote:Mr. Rao,Mr. Ertan
Your welcome. I'm not use any third party components or activex.
Best regards,
Hi Mr. Rao,
No. Not changed. Always "ANSI GET"
Best Regards,
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,
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
ertan wrote:Mr. Rao,https://imgur.com/
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,
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
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.
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.
up
nageswaragunupudi [at] gmail [dot] com#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 ENDDUMPnageswaragunupudi wrote:Also can you please build and run this program and let us know the results?Hi Mr. Rao,#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
REQUEST HB_CODEPAGE_TRWIN
function Main()
HB_CDPSELECT( "TRWIN" )#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 )