Olá Pessoal,
Abaixo um exemplo de uso de tela Cheia usando GTWVT, que é uma GT multiplataforma. Isso é de interesse para quem precisa compilar os fontes tanto para Windows como para Linux:
Tela Cheia Usando GTWVT com Windows ou Linux
Moderador: Moderadores
- Jairo Maia
- Moderador
- Mensagens: 2785
- Registrado em: 16 Ago 2010 13:46
- Localização: Campinas-SP
Tela Cheia Usando GTWVT com Windows ou Linux
- Anexos
-
TelaCheia.Prg- (2.13 KiB) Baixado 257 vezes
Abraços, Jairo
Harbour / Clipper 5.2e - Blinker 7
(Não respondo dúvidas por MP ou E-mail. Por favor, não encaminhe via mensagem privada ou e-mail, dúvidas que podem ser compartilhadas com todos no fórum)
Harbour / Clipper 5.2e - Blinker 7
(Não respondo dúvidas por MP ou E-mail. Por favor, não encaminhe via mensagem privada ou e-mail, dúvidas que podem ser compartilhadas com todos no fórum)
-
microvolution
- Usuário Nível 5

- Mensagens: 1231
- Registrado em: 02 Set 2011 22:17
- Contato:
Tela Cheia Usando GTWVT com Windows ou Linux
Prezado Professor, baixei esse .PRG e algumas mensagens de erro logo foram aparecendo:
1ª deu variável não reconhecida
====
//WVT_SetTitle('Demo Fechar Sistema') // mudei p/ linha abaixo, pois não funcionou 3/3/15w
//TTM_SetTitle('Demo Fechar Sistema') // esta também não funcionou
====
// nFontWidth:=Int(hb_gtinfo(HB_GTI_DESKTOPWIDTH)/80) // não funcionou com a "/" e com o "INT"
// nFontSize:=Int(hb_gtinfo(HB_GTI_DESKTOPHEIGHT)/25) // não funcionou com a "/" e com o "INT"
nFontWidth:=hb_gtinfo(HB_GTI_DESKTOPWIDTH)
nFontSize:=hb_gtinfo(HB_GTI_DESKTOPHEIGHT)
====
finalmente o propósito não foi atingido com o restante do PRG:
====
@ 10,10 say "Tente fechar esta janela pelo botão X"
DO WHILE .T.
tk:=inkey(0)
If tk=27
Exit
Endif
ENDDO
Retu
====
O resultado acima é que fica esperando um ESC o programa não passa para a frente e se clicar no "X" da janela/windows fecha do mesmo jeito.
Vlw pela tentativa!
1ª deu variável não reconhecida
====
//WVT_SetTitle('Demo Fechar Sistema') // mudei p/ linha abaixo, pois não funcionou 3/3/15w
//TTM_SetTitle('Demo Fechar Sistema') // esta também não funcionou
====
// nFontWidth:=Int(hb_gtinfo(HB_GTI_DESKTOPWIDTH)/80) // não funcionou com a "/" e com o "INT"
// nFontSize:=Int(hb_gtinfo(HB_GTI_DESKTOPHEIGHT)/25) // não funcionou com a "/" e com o "INT"
nFontWidth:=hb_gtinfo(HB_GTI_DESKTOPWIDTH)
nFontSize:=hb_gtinfo(HB_GTI_DESKTOPHEIGHT)
====
finalmente o propósito não foi atingido com o restante do PRG:
====
@ 10,10 say "Tente fechar esta janela pelo botão X"
DO WHILE .T.
tk:=inkey(0)
If tk=27
Exit
Endif
ENDDO
Retu
====
O resultado acima é que fica esperando um ESC o programa não passa para a frente e se clicar no "X" da janela/windows fecha do mesmo jeito.
Vlw pela tentativa!
Grato,
MICROVOLUTION - 16 anos Evoluindo Com Você!
Você já leu a Bíblia hoje?
João 3:16 - Porque Deus amou ao mundo de tal maneira que deu seu Único Filho para que todo aquele que nEle crê não pereça mas tenha a Vida Eterna!
MICROVOLUTION - 16 anos Evoluindo Com Você!
Você já leu a Bíblia hoje?
João 3:16 - Porque Deus amou ao mundo de tal maneira que deu seu Único Filho para que todo aquele que nEle crê não pereça mas tenha a Vida Eterna!
- Jairo Maia
- Moderador
- Mensagens: 2785
- Registrado em: 16 Ago 2010 13:46
- Localização: Campinas-SP
Tela Cheia Usando GTWVT com Windows ou Linux
Olá microvolution,
Do que você está falando!?
O que você disse acima não tem nada a ver com o exemplo que foi postado. Não entendi nada.
Do que você está falando!?
O que você disse acima não tem nada a ver com o exemplo que foi postado. Não entendi nada.
Abraços, Jairo
Harbour / Clipper 5.2e - Blinker 7
(Não respondo dúvidas por MP ou E-mail. Por favor, não encaminhe via mensagem privada ou e-mail, dúvidas que podem ser compartilhadas com todos no fórum)
Harbour / Clipper 5.2e - Blinker 7
(Não respondo dúvidas por MP ou E-mail. Por favor, não encaminhe via mensagem privada ou e-mail, dúvidas que podem ser compartilhadas com todos no fórum)
-
microvolution
- Usuário Nível 5

- Mensagens: 1231
- Registrado em: 02 Set 2011 22:17
- Contato:
Tela Cheia Usando GTWVT com Windows ou Linux
Prezado professor, estou falando da mesma coisa: baixei o TelaCheia.PRG e quando compilei no HMG/HARBOUR deu essas mensagens.jairo maia disse:
Do que você está falando!?
Consegui migrar meu programa em clipper para harbour e, as, telas não estão do jeito que eu quero, e, estou querendo também usar a visual LIB que eu usava no clipper com o comando/arquivo:
Código: Selecionar todos
!vl850.com
!avan.comGrato,
MICROVOLUTION - 16 anos Evoluindo Com Você!
Você já leu a Bíblia hoje?
João 3:16 - Porque Deus amou ao mundo de tal maneira que deu seu Único Filho para que todo aquele que nEle crê não pereça mas tenha a Vida Eterna!
MICROVOLUTION - 16 anos Evoluindo Com Você!
Você já leu a Bíblia hoje?
João 3:16 - Porque Deus amou ao mundo de tal maneira que deu seu Único Filho para que todo aquele que nEle crê não pereça mas tenha a Vida Eterna!
- Jairo Maia
- Moderador
- Mensagens: 2785
- Registrado em: 16 Ago 2010 13:46
- Localização: Campinas-SP
Tela Cheia Usando GTWVT com Windows ou Linux
Caro colega,
O exemplo foi montado para se compilar usando Hbmk2 TelaCheia.Prg -lxhb. Não tenho a menor ideia de como compilar isso em HMG.
Por outro lado, você diz em usar a Visual Lib. Porque isso se a HMG é baseada em MiniGui?
O exemplo foi uma solução para uso da GTWVT, que é multiplataforma.
O exemplo foi montado para se compilar usando Hbmk2 TelaCheia.Prg -lxhb. Não tenho a menor ideia de como compilar isso em HMG.
Por outro lado, você diz em usar a Visual Lib. Porque isso se a HMG é baseada em MiniGui?
Penso que melhor seria você postar sua dúvida na seção MiniGui. Naquela seção se discute a HMG que é baseada em MiniGui.microvolution escreveu:Portanto, é isso aí... aguardo mais comentários e soluções!
O exemplo foi uma solução para uso da GTWVT, que é multiplataforma.
Abraços, Jairo
Harbour / Clipper 5.2e - Blinker 7
(Não respondo dúvidas por MP ou E-mail. Por favor, não encaminhe via mensagem privada ou e-mail, dúvidas que podem ser compartilhadas com todos no fórum)
Harbour / Clipper 5.2e - Blinker 7
(Não respondo dúvidas por MP ou E-mail. Por favor, não encaminhe via mensagem privada ou e-mail, dúvidas que podem ser compartilhadas com todos no fórum)
-
microvolution
- Usuário Nível 5

- Mensagens: 1231
- Registrado em: 02 Set 2011 22:17
- Contato:
Tela Cheia Usando GTWVT com Windows ou Linux
ok professor, vou pra HMG então.
vlw!
vlw!
Grato,
MICROVOLUTION - 16 anos Evoluindo Com Você!
Você já leu a Bíblia hoje?
João 3:16 - Porque Deus amou ao mundo de tal maneira que deu seu Único Filho para que todo aquele que nEle crê não pereça mas tenha a Vida Eterna!
MICROVOLUTION - 16 anos Evoluindo Com Você!
Você já leu a Bíblia hoje?
João 3:16 - Porque Deus amou ao mundo de tal maneira que deu seu Único Filho para que todo aquele que nEle crê não pereça mas tenha a Vida Eterna!
Tela Cheia Usando GTWVT com Windows ou Linux
Funcionou perfeito, Jairo.
Parabéns e obrigado por compartilhar
Parabéns e obrigado por compartilhar
lugab
