Meu modo de trabalho
Enviado: 31 Dez 2024 21:36
Página 35 de 35
Mesma tela de sempre no natal.
Meu modo de trabalho
Enviado: 03 Jan 2025 18:54
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.
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.
Meu modo de trabalho
Enviado: 03 Jan 2025 20:53
Quebrar o galho assim mesmo...
Meu modo de trabalho
Enviado: 04 Jan 2025 02:00
Achei suas telas azuis muito boas, mas a branca ficou também muito interessante.
Meu modo de trabalho
Enviado: 04 Jan 2025 15:10
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.
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.
Meu modo de trabalho
Enviado: 04 Jan 2025 17:54
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.
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.
Meu modo de trabalho
Enviado: 04 Jan 2025 22:05
Campo em edição é outra cor.
Código: Selecionar todos
FUNCTION SetColorNormal()
RETURN SetColorSay() + "," + SetColorFocus() + ",,," + SetColorNoGet()
Meu modo de trabalho
Enviado: 07 Jan 2025 20:31
Agora que percebi.
É que minha rotina de SAY é a mesma de GET, por isso mostra GET inativo.
SetPaintGetList() faz parte de testes, mostraria contorno, parecido com LIB GUI.
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.
É 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
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
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.
Meu modo de trabalho
Enviado: 09 Jan 2025 18:38
Usuários não gostaram das novas cores.
Voltar todas as cores originais.
Perdendo tempo com isso, e depois vai ser tudo desativado.
Voltar todas as cores originais.
Perdendo tempo com isso, e depois vai ser tudo desativado.
Meu modo de trabalho
Enviado: 25 Fev 2025 12:32
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
- 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
Meu modo de trabalho
Enviado: 21 Mai 2025 09:55
Só falta minigui...
Uia... por uma coincidência incrível, gerado às 10:00:00
Meu modo de trabalho
Enviado: 22 Mai 2025 10:19
Window Size em pixels !
É obtido com funções da WVG ?
É obtido com funções da WVG ?
Meu modo de trabalho
Enviado: 22 Mai 2025 16:38
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()