Clipper On Line • Ver Tópico - Janela sobre janela

Janela sobre janela

Projeto Harbour - Compilador de código aberto compatível com o Clipper.

Moderador: Moderadores

 

Janela sobre janela

Mensagempor porter » 13 Jun 2018 16:40

Olá pessoal,
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)

#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)
porter
Usuário Nível 5

Usuário Nível 5
 
Mensagens: 1024
Data de registro: 10 Dez 2009 15:44
Cidade/Estado: OLIMPIA-SP
Curtiu: 3 vezes
Mens.Curtidas: 23 vezes



Retornar para Harbour

Quem está online

Usuários vendo este fórum: Google [Bot] e 13 visitantes


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro