As FWH Class TGet uses a Harbour/xHarbour TGet object (Clipper clone), the first step would be to modify Harbour/xHarbour Class TGet to properly manage two bytes x character.
Basically the buffer of such Get objects, should be double size, and navigation methods (Right(), Left(), etc) should skip two bytes instead of one
Finally FWH Class TGet will probably work fine with it, as it just sends messages to the contained Clipper Get
Ok Antonio, but TMultiGet class doesn't use HB/xHB TGet object. When I paste my text in the control I see the right chars but when I loose the focus the chars are converted to normal letters.
For example I paste: ĚěČčůŮ When I loose the focus I see: EeCcuU
I tryed until now to understand Unicode Api, but it seem more difficult to implement than I believed. I'm trying with a single byte east europe font for my controls... but again I can't see the special chars. I see special chars in notepad but not in my fwh app.
function Main() local oDlg, oGet, oFont, cText := "" define font oFont name "XSerif CE" size 0, 20 define dialog oDlg title "Font test" from 0,0 to 200, 400 pixel @0,0 get oGet var cText memo font oFont activate dialog oDlg centered on init oGet:SetCoors(oDlg:GetCliRect()) return nil