PC Toledo

Srs,
Minha dúvida: Como faço para, ao clicar no botão [ x ] da janela principal do sistema, ser apresentada uma caixa de diálogo se deseja realmente sair, dando ao usuário a opção de desistir?

Acrescentei ao ON RELEASE do formulário principal a chamada a uma função que já está funcionando quando teclo <Esc> ou seleciono a opção “Sair” do menu principal, porém quando a mesma função é chamada do On Release do formulário principal e seleciono a opção Não, para retornar, ainda assim o sistema é finalizado.

Alguém pode me ajudar?

Grato pela atenção.

Araújo

Amigo, veja esta mensagem:

MiniGui x Botão "X"

No arquivo demo.prg veja a variável lEncerra, que deve ser .T. para encerrar e .F. para não encerrar. Observe que esta variável esta iniciando como .F. e dentro da função Sai_Sim_Nao(), se escolher SIM, ai muda para .T.
Veja também o arquivo Form_1.fmg, note que está sendo usado ON INTERACTIVECLOSE, e não ON RELEASE.

Abraços,

Ok Paulo, darei uma olhada no seu exemplo, mas pelo que vejo estou usando o evento errado... farei uma mudança para considerar ON INTERACTIVECLOSE !..

A propósito, tenho mais uma dúvida:
Como faço para atualizar a barra de status com uma mensagem?!... Por exemplo: Gostaria de apresentar uma mensagem de “Aguarde, atualizando índices...”, Tentei atualizar a propriedade da barra de status do formulário principal da seguinte forma: Form_main.statusbar.item(1):=”Aguarde, atualizando índices...”, mas não funciona... ocorre um erro de sintaxe durante a compilação. Vi um exemplo como este na pasta samples!...
Você poderia me ajudar neste item também?!..
Grato,
Araújo

Araújo escreveu:Tentei atualizar a propriedade da barra de status do formulário principal da seguinte forma: Form_main.statusbar.item(1):=”Aguarde, atualizando índices...”

A forma de atualizar o StatusBar é esta mesma.

Araújo escreveu:mas não funciona... ocorre um erro de sintaxe durante a compilação.

Qual a mensagem de erro?

Se for possível, poste como você está definindo o StatusBar neste formulário.

Abraços,

Paulo,
O problema com On Release foi corrigido quando usei ON INTERACTIVECLOSE!...
Quanto ao outro erro, a mensagem durante a compilação é a seguinte
Error E0030 Syntax error "syntax error at '.'"
Error E0022 Invalid lvalue '()'

Na verdade quando forço a chamada a partir do action da opção de menu do formulário principal a linha de status funciona. veja abaixo:
...MENUITEM "Check Structure BD" ACTION {||Form_Main.StatusBar.Item(1):='Aguarde, Checando base de dados...',FuseDbFiles()} IMAGE "PicturesBMP\database.bmp"

Mas quando tento atualizar a partir de outro Prg ocorre a mensagem de erro na compilação. veja abaixo:
No outro prg em dado momento escrevo a seguinte linha: Form_Main.StatusBar.Item(1):='Aguarde, Checando base de dados...'
Na verdade gostaria de poder atualizar esta linha a qualquer momento, apagando a mensagem quando terminar determinado processamento. Além disso, tem pretensão de colocar uma barra de progresso na barra de status.
Você poderia me ajudar?

Grato,

Araújo

Amigo, segue em anexo um exemplo do que você pode fazer.

Obs.: este demo compilei com a MiniGui Extended, mas acho que vai funcionar também com a HMG.

Abraços,

Paulo, é isso mesmo!... o seu exemplo tem o que eu estava tentando fazer!... vou olhar com calma e depois posto o resultado. Mas de imediato vi uma propriedade no statusbar do seu exemplo que não tem na página http://www.hmgforum.com/hmgdoc/data/index.htm. Estou me referindo ao "PROGRESSITEM".
Estou tentando buscar respostas na pasta "samples" ou no link acima, mas não encontrei exemplo como esse que você postou.
Onde posso encontrar uma documentação atualizada com todas as propriedades de todos os objetos?!.. Pois, estou com dificuldade semelhante para habilitar/desabilitar opções de menu de acordo com o perfil do usuário!.. Você teria algum demo para este caso?!...
Grato pela atenção.
Araújo

Araújo escreveu:Estou tentando buscar respostas na pasta "samples" ou no link acima, mas não encontrei exemplo como esse que você postou.

Amigo, a MiniGui tem duas versões, a HMG Oficial e a MiniGui Extended. O exemplo que postei é com base na MiniGui Extended.

Procurei por PROGRESSITEM na HMG Oficial e não encontrei, então este controle PROGRESSITEM só deve existir na MiniGui Extended.

Araújo escreveu:Onde posso encontrar uma documentação atualizada com todas as propriedades de todos os objetos?

No caso da HMG Oficial veja a pasta C:\hmg.3.4.0\DOC e na MiniGui Extended veja o arquivo C:\MiniGUI\Doc\MiniGui.chm.

Araújo escreveu:habilitar/desabilitar opções de menu de acordo com o perfil do usuário

Veja: Desabilitar POPUP

Abraços,

Veja: Desabilitar POPUP

Baixei o exemplo que você postou neste link, muito bom!... remove a opção de menu... é uma boa alternativa!.. mas gostaria mesmo era poder desabilitar a opção de acordo com o perfil do usuário!... você teria um exemplo assim?!...

Abraços,

Araújo

Toledo escreveu:Amigo, a MiniGui tem duas versões, a HMG Oficial e a MiniGui Extended. O exemplo que postei é com base na MiniGui Extended.

=> Perdoe-me pela ignorância, mas qual diferença entre a versão HMG Oficial (uso a 3.4.1) e a MiniGui Extend?!... O que muda na versão extend?!... Onde posso baixá-la?!..

Toledo escreveu:Procurei por PROGRESSITEM na HMG Oficial e não encontrei, então este controle PROGRESSITEM só deve existir na MiniGui Extended.

=> Você tinha razão, testei o PROGRESSITEM e não funcionou!.. da erro de sintax na compilação!...

Abraços,

Araújo escreveu:mas qual diferença entre a versão HMG Oficial (uso a 3.4.1) e a MiniGui Extend?!... O que muda na versão extend?!... Onde posso baixá-la?

A diferença são as funções que existe em uma e na outra não. Tanto a MiniGui Extended tem funções novas que não existe na HMG, como também a HMG tem certos recursos que a MiniGui Extended não tem. Outro detalhe é o compilador, a HMG usa o MingW, já a MiniGui Extended usa o Borland C++.

http://hmgextended.com/download.html
Veja também: http://hmgextended.com/gettingstarted.html
Depois da MiniGui Extended instalada, veja o arquivo C:\MiniGUI\Doc\MiniGUI.chm (dê um clique duplo no arquivo que ele será executado)

Abraços,

Paulo,
Instalei o MiniGui Extend... depois de algumas dificuldades consegui compilar!... o resultado do statusbar funcionou como no seu exemplo... blz!... mas como faço para ao concluir o progressitem limpar a barrar de progresso que fica no status!... a mensagem de "Aguarde, atualizando" até consigo atribuindo novo valor ao form_main.statusbar.item(1):="", mas como faço com o prossitem?!..
Outra dúvida: a IDE do minigui tem algumas diferenças que até entendo, mas não estou conseguindo recuperar o form criado no HMG... tem alguma restrição?!... terei que recriar?!..

Grato,

Araújo.

Araújo escreveu:mas como faço para ao concluir o progressitem limpar a barrar de progresso que fica no status!

Use este comando:

Código: Selecionar todos

Set StatusBar ProgressItem Of Form_Main Position To 0

Araújo escreveu:não estou conseguindo recuperar o form criado no HMG... tem alguma restrição?

Amigo, não uso a IDE da HMG, então estou um pouco desatualizado, mas já de começo a IDE da HMG usa o arquivo HBP como configuração (Form, PRG, LIBs, etc) e a IDE da MiniGui Extended usa um arquivo INI e HPJ como configuração do projeto.
Mas acho que os arquivos FMG criados na IDE HMG podem ser importados para a IDE da MiniGui Extended (Add Form), pois acho que todos os controles da IDE HMG são aceitos na IDE da MiniGui Extended, já o contrário, pode não ser possível já que a IDE da MiniGui Extended tem controles que não são suportados pela IDE HMG.

Abraços,

Paulo,
Obrigado pela dica do Set StatusBar ProgressItem Of Form_Main Position To 0... Funcionou!...
Quando a IDE, consegui recuperar o form seguindo sua orientação!...
Por enquanto, muito obrigado!..
Araújo.