Página 1 de 1
GtWvW
Enviado: 04 Out 2007 18:52
por leandrolinauer
:-O Boa noite amigos.
Descobri uma leve lentidão com xHarbour em modo texto tela cheia no win98, e quando esta em modo janela já fica rápido, igual em Xp em tela cheia.
No entanto necessito que funcionasse rapido em tela cheia no win98, encontrei neste forum varios com o mesmo problema, e em alguns responderam em usar a GtWvW ou a GtWvT no lugar da GtWin, a GtWvT encontrei dentro das libs do xHarbour ja a GtWvW não encontrei, só que me deparei que não possuo o sources dos mesmos, tão logo estou sem exemplos de como chamar ela para usar, e o sistema ficar ainda em tela cheia em velocidade rápida.
Se houver alguém que possa me ajudar nisto, visto que eu gostaria de ficar com a tela em texto, para interligar o sistema em linux, já que interresso em compilar ele em linux.
Mais uma dúvida, será que em linux ficaria rapido, visto que trabalharia com SSH direto no servidor linux, através de algum emulador Ex: Puty ou em terminais linux mesmo, mas creio que não funciona em linux a GtWVW.
Meu problema único agora esta sendo a lentidão razoável no win98, suficiente para usuários acostumados no clipper reclamar.
Ps: Lentidão esta em desenhos de tela. ja nas pesquisas ja esta rápido.
Fico grato.
:)Pos
Enviado: 04 Out 2007 19:13
por Itamar M. Lins Jr.
Ola!
Bota ai no seu prg main.
E use o hbmake, marque a wvw.
Saudações
Itamar M. Lins Jr.
Código: Selecionar todos
request hb_codepage_ptiso
request hb_lang_pt
#include "inkey.ch"
#include "setcurs.ch"
#include "dbinfo.ch"
#include "gtinfo.ch"
Function main()
Public lLinux := "LINUX" in upper(OS())
Public dDados := iif(lLinux, "/"+Curdir()+"/dados/" , "\"+Curdir()+"\dados\")
Public cPasta := LEFT(hb_cmdargargv(), RAT(HB_OSpathseparator(), hb_cmdargargv())) //+ iif(lLinux,'/','\')
gtinfo(GTI_ESCDELAY,-1) // Para Slang
#IFdef __PLATFORM__Windows
#define __GTWVW__
stor 0 to nWidth,nHeight
lMainCoord:=WVW_SetMainCoord(.t.)
wvw_SetVertCaret(.t.)
WVW_SETFONT(0,"Tahoma",28,13)
wvw_pbSetFont(,"Tahoma")
GTInfo(GTI_CODEPAGE,255)
WVW_SetCodePage(,255)
hb_setcodepage([PTISO])
hb_langselect([PT])
if nWidth > 0 .and. nHeight>0
gtinfo(GTI_FONTWIDTH,nWidth)
gtinfo(GTI_FONTSIZE,nHeight)
mpixel_h := 640
mpixel_v := 480
elseif gtinfo(GTI_DESKTOPWIDTH) > 1280
gtinfo(GTI_FONTWIDTH, 16)
gtinfo(GTI_FONTSIZE, 36)
mpixel_h := 1280
mpixel_v := 960
elseif gtinfo(GTI_DESKTOPWIDTH) > 1023
gtinfo(GTI_FONTWIDTH, 13)
gtinfo(GTI_FONTSIZE, 28.5)
mpixel_h := 1024
mpixel_v := 768
elseif gtinfo(GTI_DESKTOPWIDTH) >799
gtinfo(GTI_FONTWIDTH, 10) && 09
gtinfo(GTI_FONTSIZE, 22) && 20
mpixel_h := 800
mpixel_v := 600
else
gtinfo(GTI_FONTWIDTH, 8)
gtinfo(GTI_FONTSIZE, 17)
mpixel_h := 640
mpixel_v := 480
endif
#ELSE
hb_settermcp([LINUX],[PT850])
hb_setcodepage([PTISO])
hb_langselect([PT])
set dirseparator("/")
set FileCase("lower")
set DirCase("lower")
#ENDIF
set epoch to 1910
set date to brit
setcancel(.f.)
Enviado: 05 Out 2007 07:41
por ederxc
Itamar , voce ta manjando por varios exemplos aqui pra galera , antes de mais nada obrigado , mas teria uma pedido a fazer para voce , teria como por esses exemplos dentro de uma area code , assim ficaria mais "legiavel "o fonte que esta sendo postado,
Código: Selecionar todos
if __________
______________
______________
endif________
Alinhadinho
OBs: Como voce esta se dispondo a ajudar creio que assim podera ajudar com resultados satisfatporios ao publico, não encare isso como critica , é apenas uma observação
GtWVW
Enviado: 05 Out 2007 11:38
por leandrolinauer
Itamar, obrigado pela dica e exemplo, no entanto não tenho a GtWVW.LIB, e o hbmake deu falta dela.
Eu estou usando harbour 0.99.60 simplex e não tem esta lib.
Pode me informar se eu estou usando alguma versão anterior ou outra coisa.
Grato :xau
Enviado: 05 Out 2007 11:57
por Itamar M. Lins Jr.
Aconselho usar o CVS.
Ou então pegue a xharbour .71
Saudações
Itamar M. Lins Jr
Re: GtWVW
Enviado: 05 Out 2007 15:13
por sygecom
leandrolinauer escreveu:Itamar, obrigado pela dica e exemplo, no entanto não tenho a GtWVW.LIB, e o hbmake deu falta dela.
Eu estou usando harbour 0.99.60 simplex e não tem esta lib.
Pode me informar se eu estou usando alguma versão anterior ou outra coisa.
Grato :xau
Lenadro, a GTWVW faz parte da Contrib pode baixar ela no link abaixo:
Para Windows:
http://sourceforge.net/project/download ... irror=ufpr
Para Linux:
http://sourceforge.net/project/download ... irror=ufpr
Abraços
Leonardo Machado
Re: GtWVW
Enviado: 05 Out 2007 15:19
por ederxc
leandrolinauer escreveu:Itamar, obrigado pela dica e exemplo, no entanto não tenho a GtWVW.LIB, e o hbmake deu falta dela.
Eu estou usando harbour 0.99.60 simplex e não tem esta lib.
Pode me informar se eu estou usando alguma versão anterior ou outra coisa.
Grato :xau
Brother , estou mando no seu e-mail , a gtwvw para compilar e ela ja compilada , mas não aconselho a usar essa lib .... se quiser a hwgui , me pede no forum da hwgui que te manda tbm ... :)Pos
Enviado: 05 Out 2007 15:32
por sygecom
Eder, não esqueça que o colega esta usando o xharbour 9971 e vc 9970 certo ?
Enviado: 17 Out 2007 11:57
por leandrolinauer
) Eder, valeu pelas dicas.
Já compilei com a GtWvW e ficou show, agora vou testar para colocá-lo em uso.
Muito obrigado.
:xau