Meu modo de trabalho

[JoséQuintas]

Mesma tela de sempre no natal.

[JoséQuintas]

Pois é....
Depois de décadas, abandonando o azul das telas, como prévia pra GUI, e pra aproximar do browse GUI.
Ainda começando a mudança.
Até que fica mais legível e interessante.
Dá até pra ver a sombra do logotipo.

[JoséQuintas]

Sei lá...
Quebrar o galho assim mesmo...

[developer]

Achei suas telas azuis muito boas, mas a branca ficou também muito interessante.

[JoséQuintas]

Achei que os textos ficaram mais legíveis desse jeito.
Usei um pouco mais bege/creme, pra tentar não incomodar a vista.

Ainda não decidi se ativo a statusbar, talvez com a nova cor não fique ruim.

[developer]

O tom ficou agradável, achei bom que dá para ver o tamanho de todos os campos, assim o usuário sabe o que terá que preencher e já tem idéia do tamanho do campo, só não ficou claro qual é o campo atual (ativo/foco), talvez não está na tela de edição mas de consulta, como fica quando está em edição?
Hoje em dia tem basicamente estas duas opções nos aplicativos/programas: Claro e Escuro
Isso, coloca a barra de status para ver como fica.

[JoséQuintas]

Campo em edição é outra cor.

Código: Selecionar todos

FUNCTION SetColorNormal()

   RETURN SetColorSay() + "," + SetColorFocus() + ",,," + SetColorNoGet()

[JoséQuintas]

Agora que percebi.
É que minha rotina de SAY é a mesma de GET, por isso mostra GET inativo.

Código: Selecionar todos

   hb_Default( @lEdit, .F. )
   ::ShowTabs()
   @ Row() + 1, 1  SAY "Cidade/País......:" GET nidCidade  PICTURE "999999" WHEN .F.
   @ Row() + 2, 1  SAY "Descrição........:" GET mciNome    PICTURE "@!"       VALID ! Empty( mciNome )
   @ Row() + 1, 1  SAY "Sigla UF (ou EX).:" GET cIdUF      PICTURE "@K!A"     VALID JPTABUFClassValida( @cIdUF )
   @ Row(), 32     SAY JPTABUFClassDescricao( cIdUF )
   @ Row() + 1, 1  SAY "Código IBGE/BACEN:" GET mciIbge    PICTURE "9999999"  VALID FillZeros( @mciIbge )
   @ Row() + 2, 1  SAY "Inf.Inclusão.....:" GET mciInfInc  WHEN .F.
   @ Row() + 1, 1  SAY "Inf.Alteração....:" GET mciInfAlt  WHEN .F.
   //SetPaintGetList( GetList )
   IF ! lEdit
      CLEAR GETS
      RETURN NIL
   ENDIF
   Mensagem( "F9 Pesquisa, ESC Sai" )
   READ
   Mensagem()
   IF LastKey() == K_ESC
      RETURN NIL
   ENDIF

SetPaintGetList() faz parte de testes, mostraria contorno, parecido com LIB GUI.

Código: Selecionar todos

FUNCTION SetPaintGetList( GetList, oCrt )

   LOCAL oGet, oControl, nTop, nLeft, nWidth, nHeight
   LOCAL nPixelHeight, nPixelWidth, aFontInfo

   aFontInfo    := wvt_GetFontInfo()
   nPixelHeight := ( Round( 1 / aFontInfo[ 6 ], 2 ) + 0.01 ) * 2 // 2 pixels
   nPixelWidth  := ( Round( 1 / aFontInfo[ 7 ], 2 ) + 0.01 ) * 2 // 2 pixels

   FOR EACH oGet IN GetList
      nTop     := oGet:Row - nPixelHeight
      nLeft    := oGet:Col - nPixelWidth
      nHeight  := ( nPixelHeight * 2 )
      nWidth   := Len( Transform( oGet:VarGet(), oGet:Picture ) ) + ( nPixelWidth * 2 )
      oControl := wvgTstGroupbox():New()
      oControl:Create( oCrt, , { -nTop,  -nLeft }, { -nHeight, -nWidth } )
   NEXT

   RETURN Nil

As linhas são muito juntas, acaba tendo efeito poluição.
Apenas deixo alguns testes anotados nos fontes, pra alguma referência futura.

Tem também o teste de F9Show(), é imitação de textbox com button, um ícone pra clicar e pesquisar, ao invés de apertar F9.
Também outra poluição.

[JoséQuintas]

Usuários não gostaram das novas cores.
Voltar todas as cores originais.
Perdendo tempo com isso, e depois vai ser tudo desativado.

[JoséQuintas]

Só pra registrar, meu uso atual, NO APLICATIVO:

- harbour 3.2, última versão, com pequenas mudanças
- mingw 15.0 RC 32 bits, mas tanto faz, serve qualquer uma de 4.6 até 14.2, essa 15.0 não é oficial
- gtwvg
- multithread
- fivewin 25.01, nesta data é a versão vigente
- hwgui atualizada
- multithread
- DBF e ADO/MySQL
- sefazclass
- pdfclass
- rmchartclass
- wvgtest (adicionais gtwvg)
- debug do harbour
- errorsys do harbour modificada pra gravar erro em disco.
- Fivewin anulando algumas coisas fora de uso, só pra reduzir tamanho do EXE

hwgui apenas mantendo, ficando no aplicativo os testes ficam fáceis.
O EXE não aumenta quase nada em tamanho, então deixando hwgui nele.

Minigui de fora, muita função repetida com fivewin, e não compatíveis.

Pra quem não entendeu, não se trata de aplicativos isolados.
É TUDO NO MESMO APLICATIVO

[JoséQuintas]

Meu about está uma novela...
Só falta minigui...

Uia... por uma coincidência incrível, gerado às 10:00:00

[Ana Mitoooo]

Window Size em pixels !

É obtido com funções da WVG ?

[JoséQuintas]

Pelo harbour mesmo

Código: Selecionar todos

   cText += "Window Size (Pixels): " + Ltrim( Str( hb_gtInfo( HB_GTI_SCREENWIDTH ) ) ) + " x " + ;
            Ltrim( Str( hb_gtInfo( HB_GTI_SCREENHEIGHT ) ) ) + hb_Eol()