Página 1 de 1

Tela de login deste natal

Enviado: 13 Dez 2018 21:07
por JoséQuintas
Minha tela de login deste natal...
natal.png
Tá fazendo sucesso.... rs

Tela de login deste natal

Enviado: 13 Dez 2018 21:15
por JoséQuintas
Sei lá...
Na resolução máxima daqui.
natal2.png
Deixei a janela do aplicativo no máximo, e só cortei a área "útil".
Esse corte tem o tamanho de 2467 x 999, não cabe em uma tela HD 1920 X 1080.
Até agora não entendo como esses ícones podem ficar legais em qualquer resolução....

Tela de login deste natal

Enviado: 13 Dez 2018 21:20
por JoséQuintas
Cortei só o ícone agora.
Ficou em 422 x 403 por causa da ampliação da GTWVG.
sonoel.png
Sei lá...
Não deixa nada a desejar pra nenhuma LIB GUI.

Tela de login deste natal

Enviado: 13 Dez 2018 21:31
por JoséQuintas
Aqui ao contrário, reduzi tanto que nem dá pra ler
natal3.png
A tela inteira está com 606 x 416, nem sei o ícone.
Mesmo assim o ícone está legível.

Todas as imagens deste post são print-screen.
Apenas abri o aplicativo com a tela da GTWVG, e usei a opção de redimensionar janela.
Qualquer resolução, o ícone continua legível....

Tela de login deste natal

Enviado: 13 Dez 2018 21:51
por JoséQuintas
Faltou dizer:

Harbour puro, Windows puro, nenhuma DLL ou rotina pra mexer com imagem.
Sei lá... as LIBs GUI só complicam.... kkkkk

Tela de login deste natal

Enviado: 13 Dez 2018 22:27
por JoséQuintas
A rotina pra isso?
Como eu já disse, os recursos do meu aplicativo não tem nenhum segredo, tá até aberto demais...

https://github.com/JoseQuintas/JoseQuin ... _apres.prg

o primeiro ícone:

Código: Selecionar todos

   WITH OBJECT oControl := wvgtstIcon():New()
      :SetColorBG( SetColor() )
      :cImage := "icojpatecnologia"
      :Create( , , { -nRow, -24 }, { -5.5, -84 } )
   ENDWITH
o segundo ícone (do noel):

Código: Selecionar todos

   WITH OBJECT oControl := wvgTstIcon():New()
      :SetColorBG( SetColor() ) // "W/B" )
      DO CASE
      CASE Month( Date() ) == 12 .AND. Day( Date() ) < 26
         :cImage := "icoSanta"
      OTHERWISE
         :cImage := "icoUserId"
      ENDCASE
      :Create( , , { -( Row() + 1 ), -33 }, { -6, -13 } )
   ENDWITH
A propósito....
Comentaram outro dia comigo sobre a GTWVG trabalhar com linhas/colunas...

Números positivos são coordenadas XY, e números negativos são linhas/colunas.

{ 10, 10 }, { 100, 100 } equivale a posição 10 x 10 pixels, e altura/largura 100 X 100 pixels.
{ -10, -10 }, { -20, -20 } equivale a posição linha 10 coluna 10, e altura 20 linhas, largura 20 colunas.

Tela de login deste natal

Enviado: 17 Dez 2018 15:22
por JoséQuintas
Achei um ícone mais legal....
Como tem poucos dias entre natal e ano novo....
Dá pra manter este durante o mês de dezembro inteiro....
É o Noel comemorando ano novo.... rs
noel.png