JoséQuintas GUI

por **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.

por **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

por **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

por **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.

por **JoséQuintas** » 12 Abr 2018 00:24

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

por **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

por **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?

por **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.

por **JoséQuintas** » 14 Abr 2018 11:22

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

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.

por **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.

por **microvolution** » 15 Abr 2018 11:35

bem interessante!

por **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.

por **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?

por **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)

por **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

Quem está online