Clipper On Line • Ver Tópico - JoséQuintas GUI

JoséQuintas GUI

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

Moderador: Moderadores

 

JoséQuintas GUI

Mensagempor JoséQuintas » 25 Abr 2018 12:19

Sei lá... entende...
Novamente o pushbutton...
Continuou feio kkkkkk

downold.png


downnew.png


downnew2.png
José M. C. Quintas
Harbour 3.4, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, hbnetio, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
Avatar de usuário

JoséQuintas
Colaborador

Colaborador
 
Mensagens: 9894
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 6 vezes
Mens.Curtidas: 626 vezes

JoséQuintas GUI

Mensagempor JoséQuintas » 25 Abr 2018 12:38

Assim melhora um pouco.... rs

downnew2.png
José M. C. Quintas
Harbour 3.4, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, hbnetio, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
Avatar de usuário

JoséQuintas
Colaborador

Colaborador
 
Mensagens: 9894
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 6 vezes
Mens.Curtidas: 626 vezes

JoséQuintas GUI

Mensagempor JoséQuintas » 25 Abr 2018 12:41

A título de curiosidade... o de sempre, wvt_DrawImage() e wvgTstPushButton() com alinhamento de imagem à esquerda.
Como é teste, sem otimização de fonte.

   wvt_DrawImage( 1, 0, MaxRow() -2, MaxCol(), "c:\mulher\LucyNova(3).jpg" )
   oControl1 := wvgTstPushbutton():New()
   WITH OBJECT oControl1
      :PointerFocus := .F.
      IF win_OsIsVistaOrUpper()
         :lImageResize := .T.
         :nImageAlignment := BS_LEFT
      ENDIF
      :Caption := "Download Versão"
      :oImage := IconFromCaption( "Download" )
      :Create( , , { -20, -30 }, { -5, -28 } )
   ENDWITH
   oControl2 := wvgTstPushButton():New()
   WITH OBJECT oControl2
      :PointerFocus := .F.
      IF win_OsIsVistaOrUpper()
         :lImageResize := .T.
         :nImageAlignment := BS_LEFT
      ENDIF
      :Caption := "Sair"
      :oImage := IconFromCaption( "<ESC>Sair" )
      :Create( , , { -20, -60 }, { -5, -28 } )
   ENDWITH
   Inkey(0)


Só lembrando....

Tem a janela do aplicativo... DrawImage() desenha na própria janela do aplicativo.
Pushbuton são janelas sobre a janela do aplicativo.

Estranhei o espaço entre os pushbuttons que não foi desenhado...
José M. C. Quintas
Harbour 3.4, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, hbnetio, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
Avatar de usuário

JoséQuintas
Colaborador

Colaborador
 
Mensagens: 9894
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 6 vezes
Mens.Curtidas: 626 vezes

JoséQuintas GUI

Mensagempor JoséQuintas » 25 Abr 2018 12:58

Interessante.... só deu certo colocando um Inkey(2) entre cada imagem.

downnew2.png


O que imagino?

Não sei se o Windows ou a GT....
Provavelmente repintam a área dos dois buttons pra ser mais rápido, ao invés de repintar cada button.
Só que imagem de wvt_DrawImage não se mantém na repintagem, porque o texto tem preferência sobre a imagem, por isso fica sem imagem.
Com a pausa, é atualizado um bloco da tela de cada vez, e dá certo.
Apenas chute.

Mas vai ficar como estava antes, sõ a pergunta de sim ou não.
Ou talvez, algum dia, com alguma imagem relacionada a atualização.
José M. C. Quintas
Harbour 3.4, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, hbnetio, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
Avatar de usuário

JoséQuintas
Colaborador

Colaborador
 
Mensagens: 9894
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 6 vezes
Mens.Curtidas: 626 vezes

JoséQuintas GUI

Mensagempor asimoes » 28 Abr 2018 16:33

Acredito que o caminho é interceptar o evento da janela, quando minimiza/maximiza ou redimensiona, o mesmo como funciona com a hwgui e minigui e hmg
método da janela chamado ON SIZE
►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: 3904
Data de registro: 26 Abr 2007 16:48
Cidade/Estado: RIO DE JANEIRO-RJ
Curtiu: 268 vezes
Mens.Curtidas: 182 vezes

JoséQuintas GUI

Mensagempor asimoes » 28 Abr 2018 16:37

Isso só funciona com GTWVG, intercepta o X da janela, será que tem como interceptar o minimizar / maximizar ?

Hb_gtInfo( HB_GTI_NOTIFIERBLOCKGUI, {|nEvent| Sair( nEvent ) } )
STATIC FUNCTION Sair( eSai )

   IF eSai == HB_GTE_CLOSE
      IF hwg_MsgYesNo("Deseja sair da rotina ?", "Atenção")
         DbCloseAll()
         QUIT
      ENDIF
   ENDIF
   
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: 3904
Data de registro: 26 Abr 2007 16:48
Cidade/Estado: RIO DE JANEIRO-RJ
Curtiu: 268 vezes
Mens.Curtidas: 182 vezes

JoséQuintas GUI

Mensagempor asimoes » 28 Abr 2018 16:49

Descobri o evento quando pinta e repinta a janela

   IF eSai == HB_GTE_PAINT
      hwg_MsgInfo("HB_GTE_PAINT")
   ENDIF


Acredito que possa ser usado para repitar os componentes que somem.
►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: 3904
Data de registro: 26 Abr 2007 16:48
Cidade/Estado: RIO DE JANEIRO-RJ
Curtiu: 268 vezes
Mens.Curtidas: 182 vezes

JoséQuintas GUI

Mensagempor JoséQuintas » 28 Abr 2018 17:15

É que a tela de console da WVG é uma exceção.
Ela tem a imagem do console.
Então... no caso de precisar repintar... sempre vai ser a imagem do console com texto.

É onde entra a WVT_Paint(), que equivale a essa ON PAINT para a janela de console, executada DEPOIS de repintar a imagem de console.
Eu teria que colocar aí pra repintar a(s) imagem(ns).

Interceptar o evento, significaria alterar todos os Inkeys.... inclusive Inkey(0), e pode atrapalhar justamente os Inkey(0), Inkey(2), etc. considerando que foi apertada uma tecla.

É questão de pensar aonde vale a pena fazer isso, senão pode se tornar muito fonte pra controle.
José M. C. Quintas
Harbour 3.4, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, hbnetio, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
Avatar de usuário

JoséQuintas
Colaborador

Colaborador
 
Mensagens: 9894
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 6 vezes
Mens.Curtidas: 626 vezes

JoséQuintas GUI

Mensagempor JoséQuintas » 10 Mai 2018 04:00

Nos testes que fiz com meus controles pra GTWVG, alguns deram problema.
Até aí... tudo bem... não tenho tanto conhecimento em API Windows.
Mas eis que acontece o mesmo com o EDGE da Microsoft !!!!

edge.png


Aumentei a janela do Edge, a janela aumentou, mas o conteúdo não.
Até o X de fechar a janela sumiu.

Agora não dá pra saber o que é problema de LIB ou de Windows..... rs
José M. C. Quintas
Harbour 3.4, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, hbnetio, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
Avatar de usuário

JoséQuintas
Colaborador

Colaborador
 
Mensagens: 9894
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 6 vezes
Mens.Curtidas: 626 vezes

JoséQuintas GUI

Mensagempor mustafa » 02 Jun 2018 10:12

Hola Profesor José M.C. Quintas:
Me presento soy usuario de HMG Oficial
Y por casualidad descubrí que dentro de
la Carpeta:
c:\hmg.3.4.4\HARBOUR\contrib\gtwvg\tests\
"demowvg.prg" and "demowvg1.prg"
compile estas demos y me gusto he indagando
encontré que Vds ya hacía tiempo que estaba
experimentando con esta GUI, por esto incorporé
josequintas.ch donde están recogidas parte de sus
valiosas rutinas.

Finalmente gracias a sus enseñanzas presenté
http://www.hmgforum.com/viewtopic.php?f ... afa#p55054
con el trabajo GTWvg_Sample_New.zip que para mi fue
muy fácil la compilación con nuestro --> build.3.4.4.bat
que solo poniendo dentro del fichero build.3.4.4.bat

@ECHO OFF
call c:\hmg.3.4.4\build.bat Main %*

Solo tuve que incorporar en la carpeta de la aplicación
"hbmk.hbm" y el Sample me funcionó

Muy agradecido por sus enseñanzas
Un cordial Saludo
Mustafa
Avatar de usuário

mustafa
Usuário Nível 1

Usuário Nível 1
 
Mensagens: 2
Data de registro: 02 Jun 2018 09:24
Cidade/Estado: Alicante/España
Curtiu: 0 vez
Mens.Curtidas: 0 vez

JoséQuintas GUI

Mensagempor JoséQuintas » 02 Jun 2018 22:19

Muito bom saber.

Vi que em josequintas.ch adicionou também fonte que ficava em PRG.

https://github.com/JoseQuintas/JoseQuintas/blob/master/source/ze_wvgtst.prg

Pode achar interessante o pushbutton com redimensionamento de imagem.

https://github.com/JoseQuintas/JoseQuintas/blob/master/source/ze_wvgtstbutton.prg
José M. C. Quintas
Harbour 3.4, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, hbnetio, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
Avatar de usuário

JoséQuintas
Colaborador

Colaborador
 
Mensagens: 9894
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 6 vezes
Mens.Curtidas: 626 vezes

JoséQuintas GUI

Mensagempor mustafa » 03 Jun 2018 08:29

Muy agradecido
por sus consejos
un cordial saludo
Mustafa
*--------------------------- Google --------------------------------*
Muito agradecido
por seu conselho
saudações cordiais
Mustafa
Avatar de usuário

mustafa
Usuário Nível 1

Usuário Nível 1
 
Mensagens: 2
Data de registro: 02 Jun 2018 09:24
Cidade/Estado: Alicante/España
Curtiu: 0 vez
Mens.Curtidas: 0 vez

JoséQuintas GUI

Mensagempor microvolution » 06 Jul 2018 13:18

que legal professor JQuintas...
quantos conhecimentos está nos passando...
quando tiver oportunidade, pois estou aqui na luta do pão de cada dia e, aí, não consegui tirar um tempo pra voltar a alterar meu sistema...
meu sonho é q a WVG seja a mais top de todas as LIBs - não desmerecendo as demais, e, depois a HMG 3...
ou se pudermos arrumar um jeito - como você tem feito, de funcionar ambas sem haver conflito.

Como é o no meu caso. Estou usando a WVG que vem dentro da HMG (última versão)
microvolution
Usuário Nível 4

Usuário Nível 4
 
Mensagens: 955
Data de registro: 02 Set 2011 22:17
Curtiu: 57 vezes
Mens.Curtidas: 10 vezes

JoséQuintas GUI

Mensagempor syslink » 09 Jul 2018 19:15

muito bom mesmo o que vc fez joséquintas. Parabéns. Uma lib que é muito complexa nos exemplos vc tem contribuído e muito pra um harbour ainda melhor.
syslink
Usuário Nível 2

Usuário Nível 2
 
Mensagens: 51
Data de registro: 20 Fev 2018 13:13
Cidade/Estado: joinvile/sc
Curtiu: 1 vez
Mens.Curtidas: 2 vezes

Anterior



Retornar para Outras Bibliotecas Visuais e IDEs

Quem está online

Usuários vendo este fórum: Google [Bot] e 1 visitante


Faça uma doação para o forum
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro