GtWvW

[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

[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.)

[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

[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

[Itamar M. Lins Jr.]

Aconselho usar o CVS.
Ou então pegue a xharbour .71

Saudações
Itamar M. Lins Jr

[sygecom]

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

[ederxc]

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

[sygecom]

Eder, não esqueça que o colega esta usando o xharbour 9971 e vc 9970 certo ?

[leandrolinauer]

) Eder, valeu pelas dicas.
Já compilei com a GtWvW e ficou show, agora vou testar para colocá-lo em uso.
Muito obrigado.
:xau