Clipper On Line • Ver Tópico - Aos poucos migrando tela caracter para GUI

Aos poucos migrando tela caracter para GUI

Projeto HwGui - Biblioteca visual para Harbour/xHarbour

Moderador: Moderadores

 

Aos poucos migrando tela caracter para GUI

Mensagempor JoséQuintas » 02 Jan 2018 07:17

É uma pena que o gravador do Windows 10 seja limitado.

O W10 tem gravação de vídeo, mas voltada pra jogos, onde só grava uma janela.
Com isso janelas adicionais não são salvas.

O W10 também tem gravação de comandos, com print-screen, mas neste caso é tudo ou nada.
No meu caso, o print-screen inclui 3 monitores, onde em 2 deles, podem ter mulheres em poses proibidas.... rs
Além de se tornarem imagens grandes, talvez 8000 x 2160
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18007
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

Aos poucos migrando tela caracter para GUI

Mensagempor JoséQuintas » 02 Jan 2018 07:47

ASimões

Dá pra fazer essas telas com GTWVG, pra ficarem iguais.
A única exceção talvez seja a tela do tbrowse, mas não tentei fazer.
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18007
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

Aos poucos migrando tela caracter para GUI

Mensagempor asimoes » 03 Jan 2018 05:50

Quintas,

Não sei se é possível com GTWVG:

Uma janela simples:

Dialog modal com os componentes:

Label
Button
Status Bar
â–ºHarbour 3.x | Minigui xx-x | HwGuiâ—„
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
Avatar de usuário

asimoes
Colaborador

Colaborador
 
Mensagens: 4919
Data de registro: 26 Abr 2007 16:48
Cidade/Estado: RIO DE JANEIRO-RJ
Curtiu: 341 vezes
Mens.Curtidas: 258 vezes

Aos poucos migrando tela caracter para GUI

Mensagempor asimoes » 28 Jan 2018 17:52

Cadastro com fotos e rotina pronta para captura da foto via webcam
2018-01-28 18_49_52-.png
â–ºHarbour 3.x | Minigui xx-x | HwGuiâ—„
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
Avatar de usuário

asimoes
Colaborador

Colaborador
 
Mensagens: 4919
Data de registro: 26 Abr 2007 16:48
Cidade/Estado: RIO DE JANEIRO-RJ
Curtiu: 341 vezes
Mens.Curtidas: 258 vezes

Aos poucos migrando tela caracter para GUI

Mensagempor JoséQuintas » 28 Jan 2018 19:49

Com GTWVG e Harbour 3.4 dá pra fazer parecida, mas com Harbour 3.2 não.

No Harbour 3.4 tem a alteração que enviei pra não limitar em linhas/colunas inteiras.
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18007
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

Aos poucos migrando tela caracter para GUI

Mensagempor Itamar M. Lins Jr. » 29 Jan 2018 12:28

Ola!
Pode compartilhar a rotina de foto pela webcam ?
Eu pego a foto, depois que ela é salva em algum lugar. Não tenho ainda essa rotina de acionar a webcam.

Saudações,
Itamar M. Lins Jr.
Avatar de usuário

Itamar M. Lins Jr.
Colaborador

Colaborador
 
Mensagens: 6927
Data de registro: 30 Mai 2007 11:31
Cidade/Estado: Ilheus Bahia
Curtiu: 309 vezes
Mens.Curtidas: 503 vezes

Aos poucos migrando tela caracter para GUI

Mensagempor asimoes » 29 Jan 2018 13:07

Itamar,

Essa é a minha rotina de teste que vai virar opção de captura de imagem de webcam, testado com a webcam do notebook e Webcam HD 720P C270 Logitech
Anexos
h-WebCamHwGui.zip
Exemplo HwGui, captura de imagem webcam
(2.67 MiB) Baixado 167 vezes
â–ºHarbour 3.x | Minigui xx-x | HwGuiâ—„
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
Avatar de usuário

asimoes
Colaborador

Colaborador
 
Mensagens: 4919
Data de registro: 26 Abr 2007 16:48
Cidade/Estado: RIO DE JANEIRO-RJ
Curtiu: 341 vezes
Mens.Curtidas: 258 vezes

Aos poucos migrando tela caracter para GUI

Mensagempor asimoes » 29 Jan 2018 14:17

Sobre a rotina de captura de imagens:

A resolução das fotos na função CapFileSaveDIB é 640 x 480 apesar de ter dimensionado a imagem para 1024 x 768 ou 300 x 200 a função grava com essa resolução fixa, se alguém descobrir como resolver, por favor postar aqui.
â–ºHarbour 3.x | Minigui xx-x | HwGuiâ—„
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
Avatar de usuário

asimoes
Colaborador

Colaborador
 
Mensagens: 4919
Data de registro: 26 Abr 2007 16:48
Cidade/Estado: RIO DE JANEIRO-RJ
Curtiu: 341 vezes
Mens.Curtidas: 258 vezes

Aos poucos migrando tela caracter para GUI

Mensagempor asimoes » 31 Jan 2018 08:17

Com relação ao redimensionamento de imagem, por hora a solução é a seguinte:

Sabendo que a imagem gravada é sempre 640 / 480
Para redimensionar para outra resolução
FUNCTION Redimensionar( cDirFoto )
LOCAL cBmp := cDirFoto + "TESTE.BMP", cJpg := cDirFoto + "TESTE.JPG", cPng := cDirFoto + "TESTE.PNG"

   fi_Initialise()

   * Carrega a imagem

   image := fi_Load( FIF_PNG, cPng, PNG_DEFAULT )
 
   * Pega o tamanho da imagem
   
   width   := fi_GetWidth( image )
   height  := fi_GetHeight( image )

   * Ou atribui outra resulução

   width  := 1024
 
   height := 768

   * Redimensiona a imagem
   
   * Dividindo a imagem original por 2
   rescale := fi_Rescale( image, width / 2, height / 2, FILTER_BICUBIC )
 
   * Ou tamanho atribuído
 
   rescale := fi_Rescale( image, width, height, FILTER_BICUBIC )

   * Salva a imagem com outra dimensão

   Fi_Save( FIF_PNG, rescale, cDirFoto + "rescale.png", PNG_DEFAULT )
 
   fi_DeInitialise()

RETURN Nil
â–ºHarbour 3.x | Minigui xx-x | HwGuiâ—„
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
Avatar de usuário

asimoes
Colaborador

Colaborador
 
Mensagens: 4919
Data de registro: 26 Abr 2007 16:48
Cidade/Estado: RIO DE JANEIRO-RJ
Curtiu: 341 vezes
Mens.Curtidas: 258 vezes

Aos poucos migrando tela caracter para GUI

Mensagempor microvolution » 05 Fev 2018 19:49

show esse tópico!
parabéns a todos os colegas!
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

Aos poucos migrando tela caracter para GUI

Mensagempor asimoes » 06 Fev 2018 05:50

Pesquisando acabei achando a solução para definir a resolução de imagem no fórum FiveWin
Então temos duas formas para definir a resolução da imagem:

1-Usando a imagem capturada e depois redimensionar usando a freeimage
2-Usando a função do windows capDriverGetCaps

Função SetupVideo

2018-02-06 06_39_24-h-WebCamHwGui.png
Anexos
h-WebCamHwGui.zip
Atualização
(2.67 MiB) Baixado 157 vezes
â–ºHarbour 3.x | Minigui xx-x | HwGuiâ—„
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
Avatar de usuário

asimoes
Colaborador

Colaborador
 
Mensagens: 4919
Data de registro: 26 Abr 2007 16:48
Cidade/Estado: RIO DE JANEIRO-RJ
Curtiu: 341 vezes
Mens.Curtidas: 258 vezes

Aos poucos migrando tela caracter para GUI

Mensagempor Fernando queiroz » 27 Fev 2018 11:19

IMG_0050.JPG
migrando aos poucos , mas mantendo algumas coisas antigas a pedido do cliente
HARBOUR 3.2, HWGUI 2.23 B3, SEFAZCLASS, PDFClass, ADO + MariaDB/MySQL, RMChart
Fernando queiroz
Usuário Nível 4

Usuário Nível 4
 
Mensagens: 737
Data de registro: 12 Nov 2014 23:41
Cidade/Estado: Porto Alegre/RS
Curtiu: 12 vezes
Mens.Curtidas: 58 vezes

Aos poucos migrando tela caracter para GUI

Mensagempor Fernando queiroz » 27 Fev 2018 11:21

IMG_0044.JPG
HARBOUR 3.2, HWGUI 2.23 B3, SEFAZCLASS, PDFClass, ADO + MariaDB/MySQL, RMChart
Fernando queiroz
Usuário Nível 4

Usuário Nível 4
 
Mensagens: 737
Data de registro: 12 Nov 2014 23:41
Cidade/Estado: Porto Alegre/RS
Curtiu: 12 vezes
Mens.Curtidas: 58 vezes

Aos poucos migrando tela caracter para GUI

Mensagempor Fernando queiroz » 27 Fev 2018 11:22

IMG_0043.JPG
HARBOUR 3.2, HWGUI 2.23 B3, SEFAZCLASS, PDFClass, ADO + MariaDB/MySQL, RMChart
Fernando queiroz
Usuário Nível 4

Usuário Nível 4
 
Mensagens: 737
Data de registro: 12 Nov 2014 23:41
Cidade/Estado: Porto Alegre/RS
Curtiu: 12 vezes
Mens.Curtidas: 58 vezes

Aos poucos migrando tela caracter para GUI

Mensagempor rubens » 27 Fev 2018 14:00

Fernando...
Essa tela do clipper´s club andou longe heim ?!!!
Essa tela do contas a pagar, você faz ela a partir do menu principal aí? Pega todo o ambiente do da tela texto aí ou é um programa a parte?

Obg
Rubens
"Eu e minha casa servimos ao Senhor e você ???"
Avatar de usuário

rubens
Colaborador

Colaborador
 
Mensagens: 1518
Data de registro: 16 Ago 2003 09:05
Cidade/Estado: Nova Xavantina - MT
Curtiu: 77 vezes
Mens.Curtidas: 104 vezes

Anterior Próximo



Retornar para HwGui

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 3 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