#include "hbgtinfo.ch"
REQUEST HB_LANG_PT
REQUEST HB_CODEPAGE_EN
function main()
local l
local i
SetMode(60,180)
REQUEST HB_GT_WVT_DEFAULT
HB_LANGSELECT(
'PT'
)
HB_CDPSELECT(
'EN'
)
HB_GtInfo( HB_GTI_MAXIMIZED, .F. )
HB_GtInfo( HB_GTI_FONTNAME,
"Courier new"
)
HB_GtInfo( HB_GTI_WINTITLE,
"Teste de menu"
)
for i = 32 to 255
?? i
??
"="
+ chr(i) +
" "
next
wait
"Pressione uma tecla"
return
Comentários recentes