#include "
inkey.ch"
#include "
hbgtinfo.ch"
ANNOUNCE HB_GT_SYS
REQUEST HB_GT_QTC_DEFAULT
//REQUEST HB_GT_XWC_DEFAULT
Function main
// get font size and width from system file
hb_gtInfo( HB_GTI_FONTSIZE, 30 )
hb_gtInfo( HB_GTI_FONTWIDTH, 15 )
hb_gtInfo( HB_GTI_WINTITLE, "TEST" )
hb_gtInfo( HB_GTI_ICONFILE, "test.ico" )
hb_gtInfo( HB_GTI_FONTNAME, "Monospace Regular" )
hb_gtInfo( HB_GTI_SELECTCOPY, .T. )
hb_gtInfo( HB_GTI_CLOSABLE, .T. )
hb_gtInfo( HB_GTI_RESIZABLE, .F. )
hb_gtInfo( HB_GTI_CODEPAGE, 255 )
hb_gtInfo( HB_GTI_ALTENTER, .T. )
hb_gtInfo( HB_GTI_RESIZEMODE, HB_GTI_RESIZEMODE_FONT )
hb_gtInfo( HB_GTI_SELECTCOPY, .T. )
hb_gtInfo( HB_GTI_CLOSABLE, .T. )
hb_gtInfo( HB_GTI_RESIZABLE, .T. )
hb_gtInfo( HB_GTI_CODEPAGE, 255 )
hb_gtInfo( HB_GTI_ALTENTER, .T. )
//hb_gtInfo( HB_GTI_FONTWEIGHT, HB_GTI_FONTW_NORMAL )
hb_gtInfo( HB_GTI_FONTWEIGHT, HB_GTI_FONTW_THIN )
SetMode( 23, 50 )
set color to "6+/1,4/3"
clear
@ 1,1 to 20,48
@ 2,2 say "--------------top of window------------------"
@ 11,2 say "-----------middle of window------------------"
@ 19,2 say "----------bottom of window------------------"
@ 21,1
wait