PC Toledo

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