PC Toledo

Só lembrando: o assunto é diferente do tópico.

Eu usei umas etapas interessantes, não sei se percebeu, ou se pode aproveitar.
No final minhas etapas acabaram se ajudando.

- No Clipper usava SIXCDX
- No VB6 a opção foi ADO e comandos SQL. Não preso a uma única base de dados, usei Advantage LOCAL e acessava as mesmas bases DBF+CDX do Clipper - comandos SQL e pronto pra qualquer base de dados
- Ainda no VB6 comecei minha base MySQL pra NFE e afins, usando meu servidor
- Nessa época o usuário podia abrir o aplicativo em VB6 ou Clipper, o menu podia ser VB6 ou Clipper, e existiam módulos misturados VB6 e Clipper. Para o usuário, era chamar o módulo e abria o que existisse disponível.
- Quando finalmente fui pro Harbour, migrei essa parte de NFE pro Harbour, ADO + MySQL, igual no VB6
- Atualmente estou migrando de DBF pra MySQL, usando ADO igual usava no VB6
- A passagem pelo VB6 ajudou a entender um pouco melhor a parte gráfica, e a não entender porque no Harbour é tão complicado.

Continuo migrando pra ADO + MySQL.
Como isso vai ser demorado, talvez um ano, daqui a um ano vou me preocupar com o próximo passo.
Por enquanto não preciso decidir se abondono ou não o Harbour, daqui a um ano tudo pode mudar, então deixo pra ver daqui um ano.

Até lá... dá pra brincar com qualquer coisa, até mesmo VB6.
No final, fiz exatamente o que perguntou, portanto é possível sim.

Outro dia no grupo Harbour apareceu alguém que criou um "driver" em Harbour pra usar DBF/CDX por outra linguagem de programação.
Achei interessante.
Mas usando o ADS LOCAL, grátis, faz isso via comandos SQL.

Sobre visual:
Para o usuário vai ser impossível esconder a diferença de visual, serão desenhos diferentes.
O máximo que dá pra fazer é colocar um formulário dentro de outro, através da API SetParent()

prezado Professor JQuintas...
descobri neste post que eu já havia passado por ele sem entender nada de harbour ainda (ainda não entendo rsrs ....)

Então, hoje sim, é que estou vendo-o com outros olhares, então, se puder me responder novamente (como sempre fez), as dúvidas são as seguintes:

1 - a sua função para salvar o tamanho da tela, no meu caso, estou semelhante a outro usuário que postou que não funciona. Estou testando aqui no windows 1064 bits e procurei no regedit tanto no local comum quanto naquela chave para programas 32 bits (wow3264) e nada da chave ser criada;
2 - dúvida sobre botões:
a) O botão está ficando bem interessante e maximiza perfeitamente junto com a tela, mas, por exemplo quando entro num cadastro de clientes ele fica lá ativo, como se pertencesse aquela tela, mas, na verdade ele deveria pertencer somente ao MENU PRINCIPAL;
b) Como faço para que o botão suma e volte somente no local correto?
c) no final quando encerro a aplicação o botão é o último a ser fechado, com isso, a tela fecha e ele fica lá até o total encerramento do aplicativo.

3 - Como fazer com que o botão "X" da janela funcione e possamos (como nas linguagens modernas) colocar uma condição para perguntar ao usuário se ele realmente quer fechar (pois no exemplo do demowvg isso também não funciona)?
4 - botão maximizar funciona, mas, deveria existir o botão contrário (restaurar) da tela?

Por enquanto é só e parabéns... hoje percebo o quanto essa GTWVG foi útil, pena que parece estar sendo esquecida por seus programadores e a gente não encontra nenhum material e o site oficial nem mais existe (parece)!

microvolution escreveu: 1 - a sua função para salvar o tamanho da tela, no meu caso, estou semelhante a outro usuário que postou que não funciona

8-|
Então nobre professor, o que entendo é que esta variável que é passada "lSalva" vai estar sempre como "nil" então nunca irá salva, só irá ler o que está no registro do windows. Por isso que não está gravado em lugar algum...

temos que pensar numa forma desta variável estar sempre passando o parâmetro ".t." quando o usuário alterar o tamanho da tela. Se não alterar fica como está gravado anteriormente. No caso, o .f..

Abraços!

esta variável que é passada "lSalva" vai estar sempre como "nil" então nunca irá salva

temos que pensar numa forma desta variável estar sempre passando o parâmetro ".t."

Falha 1: está perguntando aqui o que foi postado em outro lugar
Falha 2: não é "temos que pensar", você é que precisa pensar
Falha 3: variável está sempre passando o valor .T.?
Falha 4: Não leu o outro post

Leia a parte que parece não ter lido antes:

GTSetupFont() na entrada do aplicativo, e GtSetupFont(.T.) na saída.
Do jeito que o usuário deixar, é do jeito que volta.

JoséQuintas escreveu:Falha 1: está perguntando aqui o que foi postado em outro lugar

qual lugar, pois que eu saiba essa questão de GtSetupFonte() foi postado é aqui mesmo, nas páginas anteriores. Fiz questão de conferir, pois Vc me deixou em dúvida...

JoséQuintas escreveu:Falha 2: não é "temos que pensar", você é que precisa pensar

ok... vc tem razão... pra isso estou tentando ler a documentação em harbourdoc.com.br (apesar que é muito difícil, pois a maioria nem exemplos tem, muito menos explicações do que se trata);

JoséQuintas escreveu:Falha 3: variável está sempre passando o valor .T.?

estou chamando-a assim: já tentei sem nenhum parâmetro também e com .f., mas, não salva de jeito nenhum, pois lá no regedit não tem nada registrado, então não irá salvar.

JoséQuintas escreveu:Falha 4: Não leu o outro post

qual post vc se refere?

bom... melhor eu ir descansar mesmo, pois estou muito cansado e a esposa já tá "buzinano" há muito tempo nos "meusOvido"

´o)

Ok, desculpe, falha minha.
É que to respondendo tanto post seu, que nem conferi se também tinha o seu na lista.

https://pctoledo.org/forum/viewto ... nt#p101448

Mas pode aproveitar e ver a parte de cores do outro post.
Vai permitir sair das cores tradicionais do Clipper.

JoséQuintas escreveu:Ok, desculpe, falha minha.

tá desculpado... já deu pra percebeu q vc é diferente!
na ânsia de ajudar, vc não atrapalha em nada, meus parabéns!

A continuação sobre GtSetupFont(), GTSetupPalette() ficou no post indicado acima.
Talvez acrescente mais coisas lá.