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 » 11 Abr 2018 13:33

Se alterar o fundo pra cinza dá mais destaque pra sombra.
Só alterei do bitmap, mas acho que ficaria melhor trocar todo fundo, de tudo.

Como curiosidade, a alteração foi esta, de :SetColorBG( SetColor() ) pra :SetColorBG( wapi_Rgb( 125, 125, 125 ) ), trocando só a cor da janela do ícone.

jq3.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: 10036
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 6 vezes
Mens.Curtidas: 644 vezes

JoséQuintas GUI

Mensagempor JoséQuintas » 11 Abr 2018 13:42

Aproveitando isso como exemplo:

No console a preocupação é com 16 cores.
Quando entra parte gráfica no meio.... vixe.... 16 milhões de cores, e infinitos gráficos....
A LIB gráfica pode até ser importante, mas não depende só dela.
E se não for pra alterar cores e gráficos... pra que LIB gráfica?... 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: 10036
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 6 vezes
Mens.Curtidas: 644 vezes

JoséQuintas GUI

Mensagempor JoséQuintas » 11 Abr 2018 23:51

Claudio Soto escreveu:José dale una mirada a esto


Agora que baixei pra dar uma olhada....
É a própria, tem até um josequintas.ch no exemplo kkkkk
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: 10036
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 6 vezes
Mens.Curtidas: 644 vezes

JoséQuintas GUI

Mensagempor JoséQuintas » 12 Abr 2018 00:14

Só que o pessoal cria uns exemplos de lascar.... rs

c gtwvg.hbc

HBMK2 gtwvg.hbc *.prg *.rc -m -n -w3 -es2 -workdir=c:\temp -compr -strip -mt -quiet -ge1 -Id:\cdrom\FONTES\build\

Harbour 3.4.0dev (6a6cfdfa8d) (2018-01-06 11:41)
Copyright ( c ) 1999-2018, https://github.com/JoseQuintas/harbour34/
Compiling 'calc.prg'...
Lines 869, Functions/Procedures 4
Generating C source output to 'c:\temp\calc.c'... Done.
Compiling 'calendy.prg'...
Lines 448, Functions/Procedures 2
Generating C source output to 'c:\temp\calendy.c'... Done.
Compiling 'main.prg'...
2000
print_pdf.prg:1: error F0029 Can't open #include file 'hmg_hpdf.ch'
hbmk2: Error: Running Harbour compiler (built-in). 1


Fórum fivewin, exemplo GTWVG, precisando da HMG...
Não sei se alguém conseguiu testar alguma coisa... rs

Aqui ok....
hbmk2 main gtwvg.hbc hmg3.hbc -w0 -es0 -lxhb

mas tive que acrescentar algumas coisas pro Harbour 3.4:
FUNCTION CallDll32( ... ); RETURN CallDll( ... )
FUNCTION win_P2N( a ); RETURN __xhb_p2n( a )
FUNCTION hb_OsNewLine(); RETURN hb_Eol()
FUNCTION RGB( ... ); RETURN wapi_RGB( ... )


Interessante.
E dá pra melhorar com meus controles que mostrei aqui.
Uma melhorada rápida nesta tela é usando um dos controles que já mostrei aqui, redimensionando automaticamente a imagem.

fivewin.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: 10036
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 6 vezes
Mens.Curtidas: 644 vezes

JoséQuintas GUI

Mensagempor JoséQuintas » 12 Abr 2018 00:24

Usando o wvgTstBitmap() pra imagem de fundo....

fivewin2.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: 10036
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 6 vezes
Mens.Curtidas: 644 vezes

JoséQuintas GUI

Mensagempor JoséQuintas » 12 Abr 2018 00:50

E usando o wvgTstPushButton() ao invés da Toolbar da WVG.
No pushbutton tem redimensionamento automático da imagem - são bitmaps e não ícones.
À primeira vista, a toolbar não faz falta. - mas tem na WVG, são as imagens anteriores.
Como eu já disse... dá pra brincar bastante.... rs

fivewinbitmap.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: 10036
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 6 vezes
Mens.Curtidas: 644 vezes

JoséQuintas GUI

Mensagempor microvolution » 13 Abr 2018 14:17

JoséQuintas escreveu:CADA UM DELES é uma JANELA
esses textos "TEST ARIAL 80" etc você usou um @SAY ou foi através daquilo que já estou tentando que é o WVG_LABEL() e seus semelhantes?
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 JoséQuintas » 13 Abr 2018 17:47

microvolution escreveu:sses textos "TEST ARIAL 80" etc você usou um @SAY ou foi através daquilo que já estou tentando que é o WVG_LABEL() e seus semelhantes?


Um semelhante.
Naquela tela usei somente desses controles que criei, pra mostrar as possibilidades.
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: 10036
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 6 vezes
Mens.Curtidas: 644 vezes

JoséQuintas GUI

Mensagempor JoséQuintas » 14 Abr 2018 11:22

O teste do tbrowse de novo.... com traços...

browse.png


A rotina para os traços.

   FOR nCont = nTop + 5 TO nBottom
      oControl := wvgTstRectangle():New()
      oControl:Create( , , { -nCont, 0 }, { 1, -MaxCol() - 1 } )
      oControl:SetColorBG( WIN_RGB( 75, 75, 75 ) )
      AAdd( aTraceList, oControl )
   NEXT


Notem o seguinte:

São janelas sobre a janela WVG, só que as janelas tem o tamanho de um traço, 1 pixel.
Como são janelas, o aplicativo não perde tempo repintando nada, continua com a velocidade de sempre.

Isso é diferente dos exemplos da WVG, que tem o tbrowse usando WVT_Paint().
WVT_Paint() é uma rotina executada em loop pra ficar repintando a tela, portanto, o aplicativo precisa repintar, e tem mais processamento.

Certo... errado... sei lá... funciona.

Detalhe:

se no tbrowse der um ENTER pra abrir uma tela de digitação
Se essa tela for uma wvgCrt() ok, ai ser uma janela nova.
Se for a mesma janela do tbrowse, precisa esconder os traços... e provavelmente os botões também.

Por enquanto só fazendo testes, usei uma cor mais leve para os traços, para não ficar poluído demais.
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: 10036
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 6 vezes
Mens.Curtidas: 644 vezes

JoséQuintas GUI

Mensagempor JoséQuintas » 15 Abr 2018 11:06

JoséQuintas escreveu:Se for a mesma janela do tbrowse, precisa esconder os traços... e provavelmente os botões também.


Resolvi de um jeito relativamente simples...
Criei um array dos controles.
No teste de SetKey() e de função de usuário, acrescentei duas linhas.

AEval( aTraceList, { | e | e:Hide() } )
...
AEval( aTraceList, { | e | e:Show() } )


e na saída...

AEval( aTraceList, { | e | e:Destroy() } )


Como tenho rotinas genéricas no aplicativo, basicamente 2 rotinas de tbrowse, só alterei elas.

Só falta descobrir uma forma de fazer browse com imagens, por exemplo pra identificar o status do cliente e/ou do pedido com imagem.
o tbrowse é projetado apenas pra texto....

Aceito sugestões.
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: 10036
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 6 vezes
Mens.Curtidas: 644 vezes

JoséQuintas GUI

Mensagempor microvolution » 15 Abr 2018 11:35

bem interessante!
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 JoséQuintas » 20 Abr 2018 23:21

Alterei a imagem de novo kkkkk
Esse negócio de escolher imagem não para.
Mas sempre ícone multi-resolução.

login.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: 10036
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 6 vezes
Mens.Curtidas: 644 vezes

JoséQuintas GUI

Mensagempor syslink » 21 Abr 2018 12:14

JoséQuintas escreveu:Esse negócio de escolher imagem não para.
como que o Sr. José consegue tantas coisas com a wfg?
syslink
Usuário Nível 2

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

JoséQuintas GUI

Mensagempor JoséQuintas » 21 Abr 2018 18:15

syslink escreveu:como que o Sr. José consegue tantas coisas com a wfg?


Repasse os posts com atenção.
Basicamente são os de sempre: DrawImage(), wvgPushbutton()

Talvez não seja exatamente o que usar, mas como facilitar o uso.
Se tá fácil usar, vai fazendo mais uso daquilo.

A única novidade no post inteiro foi o wvgTstIcon() pra mostrar um ícone.
E aproveitar o wvgTstRectangle() pra traços, que não deu certo e gerou erros.

Isso ampliou o uso pra 3:
- Button
- Icon
- DrawImage (considerando o outro post de browse com imagem)
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: 10036
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 6 vezes
Mens.Curtidas: 644 vezes

JoséQuintas GUI

Mensagempor JoséQuintas » 21 Abr 2018 18:45

Importante:
Aquele post que veio do fivewin.

Repare que na última tela, retirei a toolbar original e troquei por pushbutton.
Troquei o que seria um controle "mais avançado", pelo mais simples, e mesmo assim ficou legal.
Podemos dizer que apenas troquei o que eu NÃO conhecia pelo que eu conhecia.
Ou que, ao invés de quebrar a cabeça pra melhorar a toolbar, usei o que já conhecia pra fazer a mesma coisa, já sabendo que funciona.

Pensando por esse lado... não fiz nada demais, só usei o button de 1001 utilidades... rs
Vou testar ele no browse... quem sabe.... 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: 10036
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 6 vezes
Mens.Curtidas: 644 vezes

Anterior Próximo



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
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro