Clipper On Line • Ver Tópico - Imagens com a gtwvt

Imagens com a gtwvt

Outras bibliotecas visuais e IDEs para Harbour/xHarbour (xHGTK/HbWxW/GtWvT/GtWvW/WvWtools.etc)

Moderador: Moderadores

 

Imagens com a gtwvt

Mensagempor Nascimento » 06 Jul 2014 23:10

Amigos eu peguei esse arquivo nao lembro bem aonde mais acho que no grupo harbour é bem legal
mais nao consegui compila-lo com harbour 3.2 e mingw acho que ele foi feito em xharbour teria como passar pra o harbour e usa-lo?
segue em anexo o zip com o codigo

_wvt_imagens.zip
Imagens com a Gtwvt
(431.5 KiB) Baixado 267 vezes
A arte de programar é simplesmente fazer seus pensamentos serem interpretados por uma maquina :) clipper 5.3 /harbour/minigui
Avatar de usuário

Nascimento
Usuário Nível 4

Usuário Nível 4
 
Mensagens: 711
Data de registro: 19 Jul 2008 12:11
Cidade/Estado: OLINDA-PE
Curtiu: 110 vezes
Mens.Curtidas: 76 vezes

Imagens com a gtwvt

Mensagempor Nascimento » 13 Jul 2014 17:19

teria como?
A arte de programar é simplesmente fazer seus pensamentos serem interpretados por uma maquina :) clipper 5.3 /harbour/minigui
Avatar de usuário

Nascimento
Usuário Nível 4

Usuário Nível 4
 
Mensagens: 711
Data de registro: 19 Jul 2008 12:11
Cidade/Estado: OLINDA-PE
Curtiu: 110 vezes
Mens.Curtidas: 76 vezes

Imagens com a gtwvt

Mensagempor Jairo Maia » 16 Jul 2014 13:28

Olá Josivan,

Com certeza, e totalmente em Harbour. Para mais detalhes veja em: C:\hb32\contrib\gtwvg\tests

Um exemplo extremamente simples com uma figura .Jpg. Para Compilar use: Hbmk2 exemplo -gtwvg -gui
Anexos
Imagens.zip
(115.65 KiB) Baixado 222 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)
Avatar de usuário

Jairo Maia
Colaborador

Colaborador
 
Mensagens: 2733
Data de registro: 16 Ago 2010 13:46
Cidade/Estado: Campinas-SP
Curtiu: 371 vezes
Mens.Curtidas: 305 vezes

Imagens com a gtwvt

Mensagempor Nascimento » 16 Jul 2014 15:13

Amigo Jairo se vc observar o exemplo que eu coloquei em anexo é com a gtwvT eu nao consegui compilar com o harbour3.2 + mingw
por isso fiquei achando que foi feito pra Xharbour e por isso postei pra ver se tinha condiçoes de passar pra harbour mais usando a mesma biblioteca a
gtwvT
e nao a gtwvG como vc sugeriu
A arte de programar é simplesmente fazer seus pensamentos serem interpretados por uma maquina :) clipper 5.3 /harbour/minigui
Avatar de usuário

Nascimento
Usuário Nível 4

Usuário Nível 4
 
Mensagens: 711
Data de registro: 19 Jul 2008 12:11
Cidade/Estado: OLINDA-PE
Curtiu: 110 vezes
Mens.Curtidas: 76 vezes

Imagens com a gtwvt

Mensagempor Jairo Maia » 17 Jul 2014 00:09

Olá Josivam,

Desculpe... Foi mal...

Não sei se você sabe, mas WVT não exibe imagem. A função usada no exemplo para exibir imagem não é Wvt.

Mas se sua idéia é gravar uma imagem num campo Memo, depois recuperá-la para exibir, o exemplo abaixo faz a mesma coisa, apenas com a diferença que é com WVG e a imagem precisa ser .JPG.

Para Salvar a imagem no campo Memo, veja a função SalvaFoto() no arquivo .PRG. Não a usei no exemplo, já que gravei algumas imagens no DBF que acompanha o exemplo.

Igual a anterior, para Compilar use: Hbmk2 exemplo -gtwvg -gui
Anexos
Imagem.zip
(94.1 KiB) Baixado 166 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)
Avatar de usuário

Jairo Maia
Colaborador

Colaborador
 
Mensagens: 2733
Data de registro: 16 Ago 2010 13:46
Cidade/Estado: Campinas-SP
Curtiu: 371 vezes
Mens.Curtidas: 305 vezes

Imagens com a gtwvt

Mensagempor Nascimento » 17 Jul 2014 13:56

Amigo jairo vc baixou o anexo e leu os fontes?
se vc ainda nao fez isso baixe e leia vc vai ver que é gtwvT realmente so que como disse acho que foi compilada em xharbour e por isso nao consegui compilar no harbour
att:Josivan Nascimento
A arte de programar é simplesmente fazer seus pensamentos serem interpretados por uma maquina :) clipper 5.3 /harbour/minigui
Avatar de usuário

Nascimento
Usuário Nível 4

Usuário Nível 4
 
Mensagens: 711
Data de registro: 19 Jul 2008 12:11
Cidade/Estado: OLINDA-PE
Curtiu: 110 vezes
Mens.Curtidas: 76 vezes

Imagens com a gtwvt

Mensagempor Jairo Maia » 18 Jul 2014 02:04

Olá Josivan,

Apenas respondendendo suas perguntas, e da minha parte para encerrar este assunto.

Josivan Nascimento escreveu:Amigo jairo vc baixou o anexo e leu os fontes?
Sim.
Josivan Nascimento escreveu:vc vai ver que é gtwvT realmente
Mil perdões... Isso não consigo ver mesmo!

Veja as funções usadas no exemplo para exibir a imagem:
handle  := OpenGraphic(x)          // abre a imagem
DisplayGraphic( handle, 10,10 )    // exibe a imagem
CloseImage(handle)                 // fecha o handle da imagem

Veja o comentário que precede a função DisplayGraphic(), usada para exibir a imagem:
/* * Exibe o grafico indicado em nHandle, nas coordenadas especificadas na tela.
* Ela converte ROW e COL para coordenadas em PIXELs e chama a rotina em C para
* exibir a imagem.
*/

FUNCTION DisplayGraphic( nHandle, Row, Col )
   LOCAL a := Wvt_GetXYFromRowCol( Row, Col )

   DisplayGraphicEX( nHandle, WIN_GETDC(WVT_GETWINDOWHANDLE()), a[1], a[2] )
   RETURN nil

No exemplo que passei, trato apenas o Chr(26) porque uso apenas imagens JPG, que são aproximadamente 11 vezes menores que as imagens BMP, mas se quiser também salvar imagens BMP, basta tratar também o caractere Chr(0), como as funções criadas pelo Vailton em puro código xBase, usadas no exemplo que você postou:
************************************************
*      FROM BRGUI Project Source Code          *
************************************************
* O Pulo-do-gato para armazenar imagens        *
* em arquivos DBF utilizando campos DBT        *
*                                              *
*     by Vailton Renato - 30/07/2004 = 22:32hs *
************************************************
function MaskBinData(x)  // salva a imagem
      x := StrTran(x,chr(26),'\\#26//')
      x := StrTran(x,chr(00),'\\#00//')
   return x

function UnMaskBinData(x)  // recupera a imagem
      x := StrTran(x,'\\#26//',chr(26))
      x := StrTran(x,'\\#00//',chr(00))
   return x

Resumindo, da WVT são usadas apenas duas funções, que são: Wvt_GetXYFromRowCol( <Row>, <Col> ) e WVT_GETWINDOWHANDLE(), respectivamente uma de conversão de coordenadas e a outra de retorno de controle. Reiterando, WVT não exibe imagens.
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)
Avatar de usuário

Jairo Maia
Colaborador

Colaborador
 
Mensagens: 2733
Data de registro: 16 Ago 2010 13:46
Cidade/Estado: Campinas-SP
Curtiu: 371 vezes
Mens.Curtidas: 305 vezes

Imagens com a gtwvt

Mensagempor Nascimento » 19 Jul 2014 10:38

jairo baixei seu exemplo muito bom por sinal mais quando eu minimizo e maximizo a imagem some tem como resolver isso? , e o que escrevo com @ say tambem nao aparece quando a imagem esta na tela
A arte de programar é simplesmente fazer seus pensamentos serem interpretados por uma maquina :) clipper 5.3 /harbour/minigui
Avatar de usuário

Nascimento
Usuário Nível 4

Usuário Nível 4
 
Mensagens: 711
Data de registro: 19 Jul 2008 12:11
Cidade/Estado: OLINDA-PE
Curtiu: 110 vezes
Mens.Curtidas: 76 vezes

Imagens com a gtwvt

Mensagempor Jairo Maia » 19 Jul 2014 16:08

Olá Josivam,

Não só a imagem, mas também os elementos gráficos. É que a preocupação com o exemplo foi mostrar como salvar e recuperar a foto do campo Memo.

Quanto a usar a parte gráfica e estabilizar, veja as alterações feitas no exemplo em anexo. Desta forma, você pode minimizar e restaurar, bem como abrir outros aplicativos ou navegadores, que ela fica estável.

Chamo a atenção para você entender o uso das funções: Wvt_Paint() e WvtSetPaint(). Para funcionar corretamente, a função Wvt_Paint() como está no exemplo tem que fazer parte de seus aplicativos, e os elementos gráficos colocados em vetor como mostrado e que será executado pela função WvtSetPaint().

Observe as alterações no exemplo que você verá que foram simples, mas fundamentais para trabalhar com elementos gráficos.

Quanto aos Gets, e Says, a dica que dou é você ver este pequeno e simples manual do Giovanni Di Maria, com quem aliás aprendi quase tudo (e não entenda que sei muita coisa) que sei no uso da GTWVG: GTWVG-Tutorial

Para compilar use: Hbmk2 imagem -gtwvg -gui
Anexos
Imagem.zip
(94.18 KiB) Baixado 226 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)
Avatar de usuário

Jairo Maia
Colaborador

Colaborador
 
Mensagens: 2733
Data de registro: 16 Ago 2010 13:46
Cidade/Estado: Campinas-SP
Curtiu: 371 vezes
Mens.Curtidas: 305 vezes

Imagens com a gtwvt

Mensagempor janio » 07 Ago 2014 13:03

Uma coisa q mim intriga...

O tutorial do Giovanni é da gtwvg ne? Mas pq o nome das funções da wvg começam com Wvt????
fui...
e-mail:janioaguiar@yahoo.com.br
msn: janio_aguiar@hotmail.com
xHarbour1.2.1/Harbour3.2 + wvg + hwgui + Mediator + MySql
Avatar de usuário

janio
Colaborador

Colaborador
 
Mensagens: 1835
Data de registro: 06 Jul 2004 07:43
Cidade/Estado: UBAJARA - CE
Curtiu: 8 vezes
Mens.Curtidas: 68 vezes

Imagens com a gtwvt

Mensagempor Jairo Maia » 20 Ago 2014 03:58

Jânio, a gtwvt é do Harbour e portanto é multi plataforma, ou seja, as funções da gtwvt roda em todas as plataformas suportadas pelo Harbour, já a gtwvg é uma extensão da gtwvt e roda somente na plataforma Windows. É uma contrib com elementos GUI.
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)
Avatar de usuário

Jairo Maia
Colaborador

Colaborador
 
Mensagens: 2733
Data de registro: 16 Ago 2010 13:46
Cidade/Estado: Campinas-SP
Curtiu: 371 vezes
Mens.Curtidas: 305 vezes

Imagens com a GTWVG

Mensagempor microvolution » 18 Jan 2016 16:32

No meu caso, estou usando a GTWVG, e a seguinte linha não carrega a imagem corretamente:
Wvg_Image( 15,36,16,42, {-3,-3,3,3}, GOBJ_IMAGESOURCE_FILE, "Vouch" )

Claro que está faltando a origem da linha "VOUCH". Então veja as opções, sendo só uma que funciona:
1ª - com a linha abaixo não funciona:
#define Vouch                  hb_DirBase() + "vouch1.bmp"

2ª - com a inclusão no .RC também não funciona
Vouch         BITMAP     "vouch1.bmp"

3ª - só funciona se colocar a linha abaixo. Mas, o problema é que se o usuário excluir o arquivo da pasta nada é apresentado:
vouch := hb_DirBase() + "vouch1.bmp"


Alguém pode me dar uma sugestão?
até breve!
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
Usuário Nível 5

Usuário Nível 5
 
Mensagens: 1175
Data de registro: 02 Set 2011 22:17
Curtiu: 59 vezes
Mens.Curtidas: 17 vezes




Retornar para Outras Bibliotecas Visuais e IDEs

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 4 visitantes


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro