GTWVG: Meu modo de trabalho

por **MSDN** » 09 Nov 2020 15:40

Itamar, realmente, em certos segmentos de varejo, vai sumir mesmo, já outros segmentos que não atendem diretamente o público, acho dificil desaparecer o desktop. Para quem quer entrar no mundo web e mobile, ultimamente no Youtube está tendo muito material sobre React !

por **JoséQuintas** » 09 Nov 2020 18:41

Como eu já disse, não estou mexendo no texto ainda, porque é possível mas é muito trabalhoso, pior ainda para os GETs.
Deixando essa parte pra depois, ou pra lib gui....
Por enquanto trabalhando na parte que é possível, e é viável, o que já adianta parte do processo.

Tem browse que tem filtro.... pensei no groupbox mas vou cair no problema que não sei mudar a cor da fonte/letra pra branco, e a cor preta default não vai ficar visível no fundo preto. Até pensei no slider... mas acho que não fica bom pra isso.

No browse dá pra colocar a scrollbar, mas no fundo preto talvez destaque demais.

Sobre os tablets.....
O remoto acaba sendo uma opção, e neste caso o Windows fica de fora, porque remoto Windows é muito caro.
Nem sei se é por isso que o Windows 10 conta com Linux... poderia resolver essa questão.

por **Itamar M. Lins Jr.** » 10 Nov 2020 10:23

Ola!

já outros segmentos que não atendem diretamente o público, acho dificil desaparecer o desktop.

Desenhos técnicos(CAD), Web designer, escritores, artes em geral e gamers, para esses o monitor quanto maior melhor.
Mas no tablet/telefone podemos encaixar um teclado e mouse se for o caso.

Veja que estou vendo a mudança para WEB seja ela qual for, o fim dos windows/linux(OS) como sendo os protagonistas, e a era dos navegadores.
Está ocorrendo bem devagar, basta olhar em nossa volta.

Saudações,
Itamar M. Lins Jr.

por **JoséQuintas** » 11 Nov 2020 10:32

Se o 5G for o que parece....
Tão falando de velocidades acima de TB...
Porque hoje em dia, não usaria aplicativo por internet nem a pau.

Quanto ao aplicativo agora preto e branco...
Acabo de instalar em outro cliente.... usuários mulheres....
"adorei"

Pois é.... milhões de cores.... e faz sucesso o preto e branco kkkkkk
Equivalente a tela mais antiga do DOS... de 1980...

por **JoséQuintas** » 11 Nov 2020 14:44

Que pena...
Consigo alterar a cor de fundo do checkbox, mas não a cor da letra.

por **MSDN** » 11 Nov 2020 15:23

Agora vc está vendo limitações que eu e outros falaram em outras postagens, não é nada contra GTwvg, mas vc mesmo viu que ela vai até um certo ponto, depois a única solução é migrar para uma opção diferente.

por **JoséQuintas** » 11 Nov 2020 16:28

MSDN escreveu:Agora vc está vendo limitações que eu e outros falaram em outras postagens, não é nada contra GTwvg, mas vc mesmo viu que ela vai até um certo ponto, depois a única solução é migrar para uma opção diferente

Não exatamente, depende do que precisa pra isso.

por **JoséQuintas** » 14 Nov 2020 16:32

Só curiosidade....
No final, meu browse acabou puxando pro lado do MediaMonkey...

E sobre as músicas....
Hoje é meu filho Paulo quem escolhe...

por **JoséQuintas** » 15 Nov 2020 06:19

Só testando....

por **JoséQuintas** » 15 Nov 2020 14:27

Mais escuro fica mais de acordo.

por **JoséQuintas** » 15 Nov 2020 21:02

Quase deu certo.
O problema é: quando/onde pegar a posição atual do tbrowse?

por **JoséQuintas** » 15 Nov 2020 22:14

oBrowse:RefreshCurrent()
IF Atail( AppForms() ):ControlByType( 6 ) != Nil
   Atail( AppForms() ):ControlByType( 6 ):SetRange( { 1, cnSQL:RecordCount() } )
   Atail( AppForms() ):ControlByType( 6 ):SendMessage( SBM_SETPOS, cnSQL:AbsolutePosition(), 0 )
ENDIF

Isso atualiza o scroll, mas não ficou 100%.

por **JoséQuintas** » 16 Nov 2020 06:29

Então....
O problema é que precisaria saber a posição atual do tbrowse, pra atualizar o scroll de acordo com a posição.

Quanto ao "desenho".... é relativamente simples:

Criar no início:

   oFrm:VScroll( nTop, nLeft, nBottom - nTop + 1, nRight - nLeft + 1 )
   oFrm:HScroll( nTop, nLeft, nBottom - nTop + 1, nRight - nLeft + 1 )

atualizar dentro da rotina do tbrowse.

oBrowse:RefreshCurrent()
IF Atail( AppForms() ):ControlByType( 6 ) != Nil
   Atail( AppForms() ):ControlByType( 6 ):SetRange( { 1, cnSQL:RecordCount() } )
   Atail( AppForms() ):ControlByType( 6 ):SendMessage( SBM_SETPOS, cnSQL:AbsolutePosition(), 0 )
   Atail( AppForms() ):ControlByType( 6 ):Show()
ENDIF

Estaria resolvido, se o oBrowse:RefreshCurrent() além de atualizar tela, também deixasse posicionado no registro atual.
Talvez só alterando o fonte do tbrowse pra dar certo.

por **JoséQuintas** » 16 Nov 2020 06:42

Pequena mudança, só pra reduzir fonte:

      Atail( AppForms() ):UpdateScroll( 1, cnSQL:RecordCount(), cnSQL:AbsolutePosition() )

E na rotina de telas:

METHOD UpdateScroll( nBegin, nEnd, nPos ) CLASS frmGUIClass

   IF ::ControlByType( CONTROL_TYPE_VSCROLL ) != Nil
      WITH ::ControlByType( CONTROL_TYPE_VSCROLL )
         :SetRange( { nBegin, nEnd } )
         :SendMessage( SBM_SETPOS, nPos, 0 )
         :Show()
      ENDWITH
   ENDIF

   RETURN Nil

Sujeito a alterações quando houver múltiplos scroll() na tela.

por **JoséQuintas** » 17 Nov 2020 16:45

A propósito...
Resolvi o posicionamento do scroll colocando duas chamadas.
A primeira é otimizada, por exemplo, se ficar teclando pageUp, o tbrowse não faz atualização completa pra ganhar tempo.
Na segunda é quando o usuário parou de teclar, e portanto as informações do tbrowse estão atualizadas.

Falta descobrir como fazer para o indicador de posição no scroll aumentar/reduzir o tamanho conforme a quantidade de registros.
Não sei se isso é liberado para o programador, por isso perguntei em outro post.

Quem está online