TGet():ReDefine - UTF8 encoding fails [Solved]

[frose]

Encoding fails - switches to Ansi - when editing and the PICTURE clause is involved!

Code: Select all  Expand view  RUN

#include "fivewin.ch"

#define ID_GET       4001
#define ID_BUTTON    4002

REQUEST HB_CODEPAGE_UTF8

FUNCTION Main()

   LOCAL oDlg
   LOCAL oGet
   LOCAL cVar1 := "üäö"
   
   FW_SetUnicode( .T. )

   DEFINE DIALOG oDlg RESOURCE "RES_UTF8"
   
   REDEFINE GET oGet VAR cVar1 ID ID_GET PICTURE "@70" OF oDlg
   //REDEFINE GET oGet VAR cVar1 ID ID_GET PICTURE "@!70" OF oDlg

   REDEFINE BUTTON ID ID_BUTTON OF oDlg ACTION MsgInfo( "<cVar1>: " + Trim( cVar1 ) + CRLF + StrToHex( cVar1, " " ) )

   ACTIVATE DIALOG oDlg CENTERED
   
RETURN NIL
 

Resource file:

Code: Select all  Expand view  RUN

// RESOURCE SCRIPT generated by "Pelles C for Windows, version 12.00".

#include <windows.h>
#include <commctrl.h>
#include <richedit.h>
#include "..\..\..\Program Files\PellesC\Include\Win\windows.h"

LANGUAGE LANG_NEUTRAL,SUBLANG_NEUTRAL

RES_UTF8 DIALOGEX DISCARDABLE 6, 18, 210, 142
STYLE DS_SHELLFONT|WS_POPUP|DS_MODALFRAME|DS_CONTEXTHELP|DS_3DLOOK|WS_CAPTION|WS_SYSMENU|WS_VISIBLE
CAPTION "Dialog"
FONT 8, "Tahoma", 0, 0, 1
{
  CONTROL "OK", IDOK, "Button", WS_TABSTOP, 160, 5, 45, 15
  CONTROL "Cancel", IDCANCEL, "Button", WS_TABSTOP, 160, 23, 45, 15
  CONTROL "Edit üöä 早晨好", 4001, "Edit", ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 4, 12, 64, 12
  CONTROL "Show üöä مرحبا", 4002, "Button", WS_TABSTOP, 4, 44, 68, 14
}
 

Consequently, the same thing still happens in TGet(), see https://forums.fivetechsupport.com/viewtopic.php?f=3&t=43709&

Encoding is ok without PICTURE clause

Code: Select all  Expand view  RUN

REDEFINE GET oGet VAR cVar1 ID ID_GET  OF oDlg

or with VARCHAR clause

Code: Select all  Expand view  RUN

REDEFINE GET oGet VAR cVar1 ID ID_GET VARCHAR 70 OF oDlg

[nageswaragunupudi]

PICTURE "@70"

What is this picture clause? What is its purpose and use?

[frose]

Ooops, at some point the 'S' got lost, should be '@S70'

[nageswaragunupudi]

should be '@S70'

Ok. I know @S70.

It is useful in DOS programs only.
What do you think is its use in a Windows Get?

[frose]

maybe it's useless
Ok I'll use VARCHAR instead of '@S' and WinUpper() instead of '@!'?

Code: Select all  Expand view  RUN

@  20, 20 GET oGet VAR cVar1 SIZE 200,20 PIXEL OF oDlg VARCHAR 70 ON CHANGE { || cVar1 := WinUpper( cVar1 ), oDlg:Update() }

and never use the PICTURE clause for strings again

[nageswaragunupudi]

Code: Select all  Expand view  RUN

@  20, 20 GET oGet VAR cVar1 PICTUE "@!" SIZE 200,20 PIXEL OF oDlg VARCHAR 70 ON CHANGE { || oDlg:Update() }
 

In Unicode Gets picture clause "@!" works.

Please do not use any other picture clauses.

We can also use the clauses

Code: Select all  Expand view  RUN

CASE "UPPER"
CASE "LOWER"
CASE "PROPER"

Code: Select all  Expand view  RUN

VARCHAR <nMaxChars>
// or
VARCHAR { <nMinChars>, <nMaxChars> )

Variable length Gets are implemented by FWH only. Such feature is not availabe in pure (x)Harbour. Only fixed length editing

[frose]

Ok, thanks for clarification.

In Unicode Gets picture clause "@!" works.

Confirm that the PICTURE clause "@!" works for TGet():Redefine and TGet():New and UTF8!