Fwh 23.10 TGet another problem (UNSOLVED)

Post Reply
Horizon
Posts: 1323
Joined: Fri May 23, 2008 1:33 pm

Re: Fwh 23.10 TGet another problem (UNSOLVED)

Post by Horizon »

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

#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 )
Without Windows Manifest.
http://www.objekt.com.tr/fwh_test/WithoutManifest.png
http://www.objekt.com.tr/fwh_test/WithoutManifest2.png
With Windows Manifest.
http://www.objekt.com.tr/fwh_test/WithManifest.png
http://www.objekt.com.tr/fwh_test/WithManifest2.png
Last edited by Horizon on Mon Feb 19, 2024 10:42 am, edited 2 times in total.
Regards,

Hakan ONEMLI

Harbour & MSVC 2022 & FWH 23.04
Top
User avatar
nageswaragunupudi
Posts: 10691
Joined: Sun Nov 19, 2006 5:22 am
Location: India
Contact:
Contact nageswaragunupudi

Re: Fwh 23.10 TGet another problem (UNSOLVED)

Post by nageswaragunupudi »

We can not see the images

Please explain what is the problem
Regards

G. N. Rao.
Hyderabad, India
Top
Horizon
Posts: 1323
Joined: Fri May 23, 2008 1:33 pm

Re: Fwh 23.10 TGet another problem (UNSOLVED)

Post by Horizon »

nageswaragunupudi wrote:We can not see the images

Please explain what is the problem
Without Windows Manifest.
http://www.objekt.com.tr/fwh_test/WithoutManifest.png
http://www.objekt.com.tr/fwh_test/WithoutManifest2.png
With Windows Manifest.
http://www.objekt.com.tr/fwh_test/WithManifest.png
http://www.objekt.com.tr/fwh_test/WithManifest2.png
Regards,

Hakan ONEMLI

Harbour & MSVC 2022 & FWH 23.04
Top
User avatar
karinha
Posts: 7885
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil
Contact:
Contact karinha

Re: Fwh 23.10 TGet another problem (UNSOLVED)

Post by karinha »

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

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

Code: Select all | Expand

   Turkish               857            TR857
   Turkish               Windows-1254   TRWIN
 
https://vivaclipper.wordpress.com/2014/ ... cdpselect/

Gracias, thanks.

Regards, saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
Top
Horizon
Posts: 1323
Joined: Fri May 23, 2008 1:33 pm

Re: Fwh 23.10 TGet another problem (UNSOLVED)

Post by Horizon »

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

   Turkish               857            TR857
   Turkish               Windows-1254   TRWIN
 
https://vivaclipper.wordpress.com/2014/ ... cdpselect/

Gracias, thanks.

Regards, saludos.
I use.

Code: Select all | Expand

Turkish               Windows-1254   TRWIN
Regards,

Hakan ONEMLI

Harbour & MSVC 2022 & FWH 23.04
Top
User avatar
nageswaragunupudi
Posts: 10691
Joined: Sun Nov 19, 2006 5:22 am
Location: India
Contact:
Contact nageswaragunupudi

Re: Fwh 23.10 TGet another problem (UNSOLVED)

Post by nageswaragunupudi »

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.
Regards

G. N. Rao.
Hyderabad, India
Top
User avatar
karinha
Posts: 7885
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil
Contact:
Contact karinha

Re: Fwh 23.10 TGet another problem (UNSOLVED)

Post by karinha »

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.
I understand master Nages. Very complicated situation.

Entiendo maestro Nages. Situación muy complicada.

Gracias, thanks.

Regards, saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
Top
User avatar
Otto
Posts: 6378
Joined: Fri Oct 07, 2005 7:07 pm
Contact:
Contact Otto

Re: Fwh 23.10 TGet another problem (UNSOLVED)

Post by Otto »

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
********************************************************************
mod harbour - Vamos a la conquista de la Web
modharbour.org
https://www.facebook.com/groups/modharbour.club
********************************************************************
Top
Horizon
Posts: 1323
Joined: Fri May 23, 2008 1:33 pm

Re: Fwh 23.10 TGet another problem (UNSOLVED)

Post by Horizon »

Hi Mr. Rao,

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

Hakan ONEMLI

Harbour & MSVC 2022 & FWH 23.04
Top
User avatar
Antonio Linares
Site Admin
Posts: 42259
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain
Contact:
Contact Antonio Linares

Re: Fwh 23.10 TGet another problem (UNSOLVED)

Post by Antonio Linares »

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
Dear Otto,

Class TGet uses a standard Edit control but (Windows) subclassed to have support for Harbour GET's pictures, behaviors, etc
regards, saludos

Antonio Linares
www.fivetechsoft.com
Top
User avatar
Otto
Posts: 6378
Joined: Fri Oct 07, 2005 7:07 pm
Contact:
Contact Otto

Re: Fwh 23.10 TGet another problem (UNSOLVED)

Post by Otto »

Dear Antonio,
thank you. I thought similar to the RTF control (C:\FWH\source\classes\fget.prg).

@ 0,155 FORMAT GET oFGet1 VAR cTxt OF oWnd;
SIZE 360,40 PIXEL

Best regards,
Otto
********************************************************************
mod harbour - Vamos a la conquista de la Web
modharbour.org
https://www.facebook.com/groups/modharbour.club
********************************************************************
Top
User avatar
nageswaragunupudi
Posts: 10691
Joined: Sun Nov 19, 2006 5:22 am
Location: India
Contact:
Contact nageswaragunupudi

Re: Fwh 23.10 TGet another problem (UNSOLVED)

Post by nageswaragunupudi »

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

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
Regards

G. N. Rao.
Hyderabad, India
Top
Horizon
Posts: 1323
Joined: Fri May 23, 2008 1:33 pm

Re: Fwh 23.10 TGet another problem (UNSOLVED)

Post by Horizon »

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

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
Hi Mr. Rao,

I have checked the sizes. They are same. Just to be sure, I compiled and ran it again. The result is the same as before.

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

I can give any remote application's id and password if you want. You can compile it in my computer.
Regards,

Hakan ONEMLI

Harbour & MSVC 2022 & FWH 23.04
Top
User avatar
nageswaragunupudi
Posts: 10691
Joined: Sun Nov 19, 2006 5:22 am
Location: India
Contact:
Contact nageswaragunupudi

Re: Fwh 23.10 TGet another problem (UNSOLVED)

Post by nageswaragunupudi »

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
Regards

G. N. Rao.
Hyderabad, India
Top
Horizon
Posts: 1323
Joined: Fri May 23, 2008 1:33 pm

Re: Fwh 23.10 TGet another problem (UNSOLVED)

Post by Horizon »

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
I am waiting libs for MSVC 32 bit. and Harbour :D
Regards,

Hakan ONEMLI

Harbour & MSVC 2022 & FWH 23.04
Top
Post Reply

Return to “FiveWin for Harbour/xHarbour”