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: 9247
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 6 vezes
Mens.Curtidas: 535 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: 9247
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 6 vezes
Mens.Curtidas: 535 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: 9247
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 6 vezes
Mens.Curtidas: 535 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: 9247
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 6 vezes
Mens.Curtidas: 535 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: 3762
Data de registro: 26 Abr 2007 16:48
Cidade/Estado: RIO DE JANEIRO-RJ
Curtiu: 211 vezes
Mens.Curtidas: 159 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: 3762
Data de registro: 26 Abr 2007 16:48
Cidade/Estado: RIO DE JANEIRO-RJ
Curtiu: 211 vezes
Mens.Curtidas: 159 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: 3762
Data de registro: 26 Abr 2007 16:48
Cidade/Estado: RIO DE JANEIRO-RJ
Curtiu: 211 vezes
Mens.Curtidas: 159 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: 9247
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 6 vezes
Mens.Curtidas: 535 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: 9247
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 6 vezes
Mens.Curtidas: 535 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: 9247
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 6 vezes
Mens.Curtidas: 535 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

Anterior



Retornar para Outras Bibliotecas Visuais e IDEs

Quem está online

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


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