Na rotina abaixo, estou criando um form tamanho 25x80 e em seguida um com 43x80, tem como a primeira janela
não ser apagada ao criar a segunda, ou seja, uma ficar dentro da outra ?
HARBOUR 3.2.0(dev) GTWVG (console)
Código: Selecionar todos
#include "hbgtinfo.ch"
Hb_gtReload( "WVG" ) // CRIA UMA NOVA JANELA
SETMODE(25,80)
screenWidth := HB_GTINFO( HB_GTI_DESKTOPWIDTH )
screenHeight:= HB_GTINFO( HB_GTI_DESKTOPHEIGHT )
wvt_SetFont( "courier new" , Round(( screenHeight / MaxRow() ),0)-4, Round(( screenWidth / MaxCol() ),0), 0 )
CLS
@10,10 SAY "25X80"
INKEY(0)
Hb_gtReload( "WVG" )
SETMODE(43,80)
screenWidth := HB_GTINFO( HB_GTI_DESKTOPWIDTH )
screenHeight:= HB_GTINFO( HB_GTI_DESKTOPHEIGHT )
wvt_SetFont( "courier new" , Round(( screenHeight / MaxRow() ),0)-4, Round(( screenWidth / MaxCol() ),0), 0 )
CLS
@10,10 SAY "43X80"
INKEY(0)