Clipper On Line • Ver Tópico - GTWVG: Meu modo de trabalho

GTWVG: Meu modo de trabalho

Outras bibliotecas visuais e IDEs para Harbour/xHarbour (xHGTK/HbWxW/GtWvT/GtWvW/WvWtools.etc)

Moderador: Moderadores

 

GTWVG: Meu modo de trabalho

Mensagempor 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 !
MSDN
Usuário Nível 4

Usuário Nível 4
 
Mensagens: 847
Data de registro: 28 Nov 2003 14:55
Cidade/Estado: CWB
Curtiu: 178 vezes
Mens.Curtidas: 121 vezes

GTWVG: Meu modo de trabalho

Mensagempor 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.
José M. C. Quintas
Harbour 3.4, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, hbnetio, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
Avatar de usuário

JoséQuintas
Colaborador

Colaborador
 
Mensagens: 15499
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 13 vezes
Mens.Curtidas: 897 vezes

GTWVG: Meu modo de trabalho

Mensagempor 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.
Avatar de usuário

Itamar M. Lins Jr.
Colaborador

Colaborador
 
Mensagens: 4779
Data de registro: 30 Mai 2007 11:31
Cidade/Estado: Ilheus Bahia
Curtiu: 171 vezes
Mens.Curtidas: 272 vezes

GTWVG: Meu modo de trabalho

Mensagempor 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...
José M. C. Quintas
Harbour 3.4, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, hbnetio, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
Avatar de usuário

JoséQuintas
Colaborador

Colaborador
 
Mensagens: 15499
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 13 vezes
Mens.Curtidas: 897 vezes

GTWVG: Meu modo de trabalho

Mensagempor JoséQuintas » 11 Nov 2020 14:44

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

tela.png
José M. C. Quintas
Harbour 3.4, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, hbnetio, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
Avatar de usuário

JoséQuintas
Colaborador

Colaborador
 
Mensagens: 15499
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 13 vezes
Mens.Curtidas: 897 vezes

GTWVG: Meu modo de trabalho

Mensagempor 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.
MSDN
Usuário Nível 4

Usuário Nível 4
 
Mensagens: 847
Data de registro: 28 Nov 2003 14:55
Cidade/Estado: CWB
Curtiu: 178 vezes
Mens.Curtidas: 121 vezes

GTWVG: Meu modo de trabalho

Mensagempor 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.
José M. C. Quintas
Harbour 3.4, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, hbnetio, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
Avatar de usuário

JoséQuintas
Colaborador

Colaborador
 
Mensagens: 15499
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 13 vezes
Mens.Curtidas: 897 vezes

GTWVG: Meu modo de trabalho

Mensagempor JoséQuintas » 14 Nov 2020 16:32

tela.png


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

E sobre as músicas....
Hoje é meu filho Paulo quem escolhe...
Anexos
tela2.png
José M. C. Quintas
Harbour 3.4, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, hbnetio, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
Avatar de usuário

JoséQuintas
Colaborador

Colaborador
 
Mensagens: 15499
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 13 vezes
Mens.Curtidas: 897 vezes

GTWVG: Meu modo de trabalho

Mensagempor JoséQuintas » 15 Nov 2020 06:19

Só testando....

scroll.png
José M. C. Quintas
Harbour 3.4, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, hbnetio, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
Avatar de usuário

JoséQuintas
Colaborador

Colaborador
 
Mensagens: 15499
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 13 vezes
Mens.Curtidas: 897 vezes

GTWVG: Meu modo de trabalho

Mensagempor JoséQuintas » 15 Nov 2020 14:27

scroll2.png


Mais escuro fica mais de acordo.
José M. C. Quintas
Harbour 3.4, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, hbnetio, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
Avatar de usuário

JoséQuintas
Colaborador

Colaborador
 
Mensagens: 15499
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 13 vezes
Mens.Curtidas: 897 vezes

GTWVG: Meu modo de trabalho

Mensagempor JoséQuintas » 15 Nov 2020 21:02

scroll.png


Quase deu certo.
O problema é: quando/onde pegar a posição atual do tbrowse?
José M. C. Quintas
Harbour 3.4, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, hbnetio, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
Avatar de usuário

JoséQuintas
Colaborador

Colaborador
 
Mensagens: 15499
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 13 vezes
Mens.Curtidas: 897 vezes

GTWVG: Meu modo de trabalho

Mensagempor 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%.
José M. C. Quintas
Harbour 3.4, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, hbnetio, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
Avatar de usuário

JoséQuintas
Colaborador

Colaborador
 
Mensagens: 15499
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 13 vezes
Mens.Curtidas: 897 vezes

GTWVG: Meu modo de trabalho

Mensagempor 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.
José M. C. Quintas
Harbour 3.4, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, hbnetio, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
Avatar de usuário

JoséQuintas
Colaborador

Colaborador
 
Mensagens: 15499
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 13 vezes
Mens.Curtidas: 897 vezes

GTWVG: Meu modo de trabalho

Mensagempor 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.
José M. C. Quintas
Harbour 3.4, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, hbnetio, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
Avatar de usuário

JoséQuintas
Colaborador

Colaborador
 
Mensagens: 15499
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 13 vezes
Mens.Curtidas: 897 vezes

GTWVG: Meu modo de trabalho

Mensagempor JoséQuintas » 17 Nov 2020 16:45

browse.png


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.
José M. C. Quintas
Harbour 3.4, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, hbnetio, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
Avatar de usuário

JoséQuintas
Colaborador

Colaborador
 
Mensagens: 15499
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 13 vezes
Mens.Curtidas: 897 vezes

Anterior Próximo



Retornar para Outras Bibliotecas Visuais e IDEs

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 1 visitante


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro