Ajuda Migracao.

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

Moderador: Moderadores

Avatar do usuário
Itamar M. Lins Jr.
Administrador
Administrador
Mensagens: 7928
Registrado em: 30 Mai 2007 11:31
Localização: Ilheus Bahia
Curtiu: 1 vez

Re: Ajuda Migracao.

Mensagem por Itamar M. Lins Jr. »

Isso, não é uma rotina exuta. Não podemos testar nas nossas maquinas esse exemplo.
Este teste aqui funcionou normal. Procure demonstrar o problema com o essencial.

Código: Selecionar todos

#include 'inkey.ch'
Function Main
  tecla := inkey(0)
  If TECLA = K_ALT_C
     alert('Alt+c pressionado: '+str(K_ALT_C))
  EndIf
Saudações,
Itamar M. Lins Jr.
Saudações,
Itamar M. Lins Jr.
Avatar do usuário
Alexandre Silva
Usuário Nível 3
Usuário Nível 3
Mensagens: 376
Registrado em: 26 Mar 2007 00:16
Localização: Itapema - SC

Re: Ajuda Migracao.

Mensagem por Alexandre Silva »

Compilei.. com harbour 2.0 mingw
Quando aperto ALT, cai fora, nada de mensagem, mesmo sintoma ! :(
O meu include é o que foi instalado na pasta HB21\include
* Clipper 5.2e/Gaspro 4.0 /CDX/Blinker 7.0 Harbour 3.2 Console Hbmk2
Avatar do usuário
Itamar M. Lins Jr.
Administrador
Administrador
Mensagens: 7928
Registrado em: 30 Mai 2007 11:31
Localização: Ilheus Bahia
Curtiu: 1 vez

Re: Ajuda Migracao.

Mensagem por Itamar M. Lins Jr. »

Ola!
Use no hbmk2 -gtwvt na hora de linkar.

Ps. esse exemplo parece que está errado.

Saudações,
Itamar M. Lins Jr.
Saudações,
Itamar M. Lins Jr.
Avatar do usuário
Itamar M. Lins Jr.
Administrador
Administrador
Mensagens: 7928
Registrado em: 30 Mai 2007 11:31
Localização: Ilheus Bahia
Curtiu: 1 vez

Re: Ajuda Migracao.

Mensagem por Itamar M. Lins Jr. »

Ola!
Descobrir o problema.
Estou vendo com o desevolvedores se é assim mesmo.
Quando ativamos
setcancel(.f.)
Está ocorrendo problema com o ALT.

Saudações,
Itamar M. Lins Jr.
Saudações,
Itamar M. Lins Jr.
Avatar do usuário
Alexandre Silva
Usuário Nível 3
Usuário Nível 3
Mensagens: 376
Registrado em: 26 Mar 2007 00:16
Localização: Itapema - SC

Re: Ajuda Migracao.

Mensagem por Alexandre Silva »

Nos testes que fiz independe o Setcancel , apertou ALT, interpreta como uma tecla. no caso, equivalente ao control page UP.
Com o -gtwvt, funciona, o ALT fica desativado, mas no momento quero continuar, com o modo console..
essa tela grafica nao ficou tao legal como a do TAMEDOS.. a nao ser que tenha mais parametros que eu nao saiba.

Fico no aguardo entao...
Obrigado
* Clipper 5.2e/Gaspro 4.0 /CDX/Blinker 7.0 Harbour 3.2 Console Hbmk2
Avatar do usuário
Itamar M. Lins Jr.
Administrador
Administrador
Mensagens: 7928
Registrado em: 30 Mai 2007 11:31
Localização: Ilheus Bahia
Curtiu: 1 vez

Re: Ajuda Migracao.

Mensagem por Itamar M. Lins Jr. »

É isso, e eu pensei que tinha haver com setcancel.

Saudações,
Itamar M. Lins Jr.
Saudações,
Itamar M. Lins Jr.
ricardo-barros
Usuário Nível 3
Usuário Nível 3
Mensagens: 104
Registrado em: 29 Out 2009 20:12
Localização: Fortaleza

Ajuda Migracao.

Mensagem por ricardo-barros »

Talvez você esteja vendo sua tela com a fonte Courier New. O modo console fica ótimo com a fonte Lucida Console. As seguintes linhas no início do seu sistema permitem a troca da fonte e a exibição em tela no Windows 7 (e também no XP e Vista):

Código: Selecionar todos

#Include "hbgtinfo.ch"
*Mensagens de erro em português:
REQUEST HB_LANG_PT 
REQUEST HB_CODEPAGE_PTISO 

Proc Main 
*hb_setcodepage([PTISO]) // Necessário no Harbour 2.0, dispensável no 2.1  
hb_langselect([PT]) 

HB_GtInfo( HB_GTI_FONTNAME, "Lucida Console" )
HB_GtInfo( HB_GTI_ISFULLSCREEN, .T. )
HB_GtInfo( HB_GTI_ALTENTER, .T. )
O arquivo .hbp deve incluir:
#Modo grafico:
-gtwvt

#Compila só os prg alterados desde a ultima compilacao
-inc

#Reduz bastante o tamanho do exe
-compr=max
Editado pela última vez por Pablo César em 26 Out 2012 12:51, em um total de 2 vezes.
Razão: Mensagem editada para colocar a tag [ code ]<br>Veja como utilizar esta tag: http://www.pctoledo.com.br/forum/faq.php?mode=bbcode#f2r1
Avatar do usuário
Itamar M. Lins Jr.
Administrador
Administrador
Mensagens: 7928
Registrado em: 30 Mai 2007 11:31
Localização: Ilheus Bahia
Curtiu: 1 vez

Ajuda Migracao.

Mensagem por Itamar M. Lins Jr. »

Foi aberto outro tópico e esse ficou sem conclusão, porém o Viktor corrigiu o problema, há algum tempo.

Saudações,
Itamar M. Lins Jr.
Saudações,
Itamar M. Lins Jr.
lucimauro
Usuário Nível 3
Usuário Nível 3
Mensagens: 465
Registrado em: 21 Set 2004 21:02
Localização: Sobral-CE

Ajuda Migracao.

Mensagem por lucimauro »

OI pessoal,eu estou usando esses parametros acimas para compilar meu programa, so que a instrucao
HB_GtInfo( HB_GTI_ALTENTER, .T. ) diz que a variavel nao existe.alguem pode ajudar?
alxsts
Colaborador
Colaborador
Mensagens: 3092
Registrado em: 12 Ago 2008 15:50
Localização: São Paulo-SP-Brasil

Ajuda Migracao.

Mensagem por alxsts »

Olá!

Verifique se você colocou a linha abaixo no início do teu programa.

Código: Selecionar todos

#Include "hbgtinfo.ch"
[]´s
Alexandre Santos (AlxSts)
lucimauro
Usuário Nível 3
Usuário Nível 3
Mensagens: 465
Registrado em: 21 Set 2004 21:02
Localização: Sobral-CE

Ajuda Migracao.

Mensagem por lucimauro »

Obrigado por me ajudar.
ja resolvi , o erro era porque eu tava usando uma versao antigo do arquivo CH agora baixei o harbour 3.00 e deu certinho.

Outra coisa que queria demais ajuda de voces era com relacao ao tamanho da tela, eu uso 80,25 e quando compilio fica sempre aquela tela no na metado do video quase sempre.
queria saber quais funcoes uso para aumento esse tamanho desta tela,ficando ela com por exeplos 80,60 ou algo parecido.
desde ja agradeço pela ajuda.
alxsts
Colaborador
Colaborador
Mensagens: 3092
Registrado em: 12 Ago 2008 15:50
Localização: São Paulo-SP-Brasil

Ajuda Migracao.

Mensagem por alxsts »

Olá!

No modo gráfico, use a função SetMode(nColunas,nLinhas). Ex:

Código: Selecionar todos

SetMode(80,60)
[]´s
Alexandre Santos (AlxSts)
Responder