#include "hwgui.ch"
REQUEST HB_CODEPAGE_UTF8EX // ** tentativa de corrigir
Function Main
Local oMainWnd, oFont
Local aCombo := {"Primeiro","Segundo" }
hb_cdpSelect ( "UTF8EX" ) // ** tentativa de corrigir
PREPARE FONT oFont NAME "MS Sans Serif" WIDTH 0 HEIGHT -13
INIT WINDOW oMainWnd TITLE "Exemplo Olá Mundo." ;
FONT oFont ;
ON EXIT {||hwg_MsgYesNo("Sair do Sistema ?")}
@ 20,10 EDITBOX "Ola mundo!" SIZE 200,30
@ 270,10 COMBOBOX aCombo SIZE 100, 150 TOOLTIP "Combobox"
@ 120,60 BUTTON "Sair" SIZE 150,30 ;
ON CLICK {||oMainWnd:Close()}
MENU OF oMainWnd
MENUITEM "Sobre" ACTION hwg_MsgInfo("Primeira Aplicação... !!")
ENDMENU
ACTIVATE WINDOW oMainWnd
hwg_writelog( "Programa Terminado: " + Dtoc(Date()) + " em " + Time() )
Return
Dicas
------------------------------------------------
Maquina virtual - Windows 32
Harbour = caminho: c:\hb32 ( harbour-nightly-win.exe )
hwgui = caminho: c:\hwgui ( hwgui-2.20-b3.mingw.zip )