Quem desejar testar. Exemplo:
Código: Selecionar todos
#include "hwgui.ch"
// Certifique-se de salvar este arquivo .prg em formato UTF-8 no seu editor!
REQUEST HB_CODEPAGE_UTF8, HB_LANG_PT
PROCEDURE Main()
LOCAL oForm, oLabel1, oLabel2, oBtn
LOCAL cTextoPt, cTextoJap
// Configuração nativa do seu ambiente
HB_CDPSELECT("UTF8")
hb_langselect("PT")
hwg_SetApplocale( "UTF8" )
cTextoPt := "Acentuação em UTF-8: Ações, Época, Coração, Olá Mundo!"
cTextoJap := "Texto Internacional: 日本語 (Nihongo)"
INIT WINDOW oForm TITLE "Teste Oficial UTF-8 - HwGUI" ;
AT 200, 200 SIZE 600, 250 ;
STYLE WS_OVERLAPPEDWINDOW
@ 20, 30 SAY oLabel1 CAPTION cTextoPt SIZE 560, 30 ;
FONT HFont():Add( "Arial", 12 )
@ 20, 80 SAY oLabel2 CAPTION cTextoJap SIZE 560, 30 ;
FONT HFont():Add( "Arial", 12 )
@ 230, 150 BUTTON oBtn CAPTION "Fechar" SIZE 140, 40 ;
ON CLICK {|| oForm:Close() }
ACTIVATE WINDOW oForm
RETURN
