Eu estou usando o Harbour, baixei e compilei dia 18/05/2009 (1.1.0 dev (rev 11075))
`
Eu fico até sem jeito de dizer que ja fiz assim tambem.... mas é como eu disse, eu uso as chamadas iniciais de forma direta:
Código: Selecionar todos
#include "Inkey.ch"
#include "Visual2.ch"
#include "HbGtInfo.ch"
#include "HbGtWvg.ch"
#include "Ord.ch"
#include "hbcompat.ch"
REQUEST DBFCDX
RddSetDefault( "DBFCDX" )
REQUEST HB_LANG_PT
REQUEST HB_CODEPAGE_PT850
HB_LANGSELECT("PT")
REQUEST WVT_SETCODEPAGE
HB_SETCODEPAGE( "PT850" )
Wvt_Core()
Wvt_Utils()
Wvt_SetTitle("Testando Aplicação")
Wvt_SetFont('Ms Sans Serif',09,-13,300,0)
Wvt_SetCodePage(850) //255)
Set EventMask To 159
SETMODE(25,80)
do case // Identifica a resolucao do video
case Hb_Gtinfo(GTI_DESKTOPWIDTH) > 1023
Gtinfo(GTI_FONTWIDTH, 12) // largura 12 anterior // 13 // 12
Gtinfo(GTI_FONTSIZE, 27) // altura 27 anterior // 29 // 27
case Gtinfo(GTI_DESKTOPWIDTH) > 799
Gtinfo(GTI_FONTWIDTH, 10 ) // 10 anterior // 10
Gtinfo(GTI_FONTSIZE, 22 ) // 20 anterior // 22
otherwise
Gtinfo(GTI_FONTWIDTH, 8)
Gtinfo(GTI_FONTSIZE, 17)
endcase
Código: Selecionar todos
FUNCTION MAIN()
Local aEnv
set key K_F10 to Saida
SetKeyMouse( K_F10, { 24, 24, 72, 79 } )
Configura()
CriaIni()
MSGBOX(BaseDeDados())
MSGBOX(ClientesOpen())
Desktop()
Vlsetmouse(.t.)
MasterMenu()
DrawFn( 10, "Sa¡da" )
WHILE .T.
BarMenu( mBar )
Set Key K_F10 to
SetKeyMouse( K_F10, {} )
VLExit()
Set Key K_F10 to saida
SetKeyMouse( K_F10, { 24, 24, 72, 79 } )
END
RETURN NIL
Assim funciona, as bordas ficam com linhas simples e duplas nos objetos com focu, mas funciona de forma satisfatoria, sem problemas com caracteres. Só não funcionada com a fonte.TTF
