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: 9208
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 6 vezes
Mens.Curtidas: 532 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: 9208
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 6 vezes
Mens.Curtidas: 532 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: 9208
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 6 vezes
Mens.Curtidas: 532 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: 9208
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 6 vezes
Mens.Curtidas: 532 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: 3730
Data de registro: 26 Abr 2007 16:48
Cidade/Estado: RIO DE JANEIRO-RJ
Curtiu: 209 vezes
Mens.Curtidas: 158 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: 3730
Data de registro: 26 Abr 2007 16:48
Cidade/Estado: RIO DE JANEIRO-RJ
Curtiu: 209 vezes
Mens.Curtidas: 158 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: 3730
Data de registro: 26 Abr 2007 16:48
Cidade/Estado: RIO DE JANEIRO-RJ
Curtiu: 209 vezes
Mens.Curtidas: 158 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: 9208
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 6 vezes
Mens.Curtidas: 532 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: 9208
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 6 vezes
Mens.Curtidas: 532 vezes

Anterior



Retornar para Outras Bibliotecas Visuais e IDEs

Quem está online

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