Bom dia,
Apesar da seção ser Clipper, a minha postagem é mais a título de conhecimento, como o Harbour é a evolução do Clipper, não custa compartilhar a informação.
Antigamente as aplicações Clipper trabalhavam em tela cheia, mas, se não me engano, a partir do Windows Vista, ficou só modo janela, o que nem sempre é o ideal, quando se está sentado em um escritório usando o sistema, até vai, mas em um balcão de comércio, seria melhor a tela cheia, então, coloco aqui alguns passos simples para usar o Harbour e deixar sua aplicação em tela cheia.
1 - Baixar o Harbour : no link
https://github.com/harbour/core , clique no botão Download ZIP, após isso, descompacte o arquivo e coloque em C:, ficará c:\HB32 , e dentro as pastas que já conhecemos, BIN, LIB e INCLUDE, além de outras claro, mas o que precisa para funcionar são essas três ;
2 - A variável PATH do seu Windows deve setar o seguinte : c:\hb32\bin;c:\hb32\lib;c:\hb32\include; , vc não precisa mais de autoexect.nt ou config.nt, basta ir até o painel de controle, clicar em sistema, depois em configurações avançadas do sistema, depois no botão variáveis de ambiente, e na janela variáveis do sistema, achar a palavra PATH, selecionar clicando em cima e no botão EDITAR, inserir no inicio o caminho do Harbour, clicar em OK, OK até fechar todas as janelas ;
3 - Feito isso, as próximas mudanças são no código fonte, no PRG principal, deve começar com FUNCTION MAIN() , e todas as chamadas de PRG/Rotinas dentro de sua aplicação, devem ser através de funções, e não mais DO .......
Estando tudo ok nesses 3 passos, inclua essas linhas no seu PRG principal, para que seja usada a GTWvT, e assim tenha a tela cheia e mouse em sua aplicação :
Código: Selecionar todos
#include "hbgtinfo.ch"
REQUEST HB_GT_WVT_DEFAULT
REQUEST HB_GT_WIN
FUNCTION main()
local pGT
local pNewGT
/*
implementação da GT
*/
pNewGT := hb_gtCreate("WVT")
pGT := hb_gtSelect(pNewGT)
HB_GTINFO( HB_GTI_SELECTCOPY, .F.)
HB_GTINFO( HB_GTI_RESIZABLE, .T.)
HB_GTINFO( HB_GTI_CODEPAGE, 255 )
HB_GTINFO( HB_GTI_ALTENTER, .F.)
HB_GtInfo( HB_GTI_ISFULLSCREEN, .T. ) // deixa a tela cheia - estilo DOS
HB_GtInfo( HB_GTI_RESIZEMODE, HB_GTI_RESIZEMODE_FONT ) // aumenta o tamanho da letra proporcionalmente
Set Eventmask to 1002
Abraços