Problemas com tela CHILD
Enviado: 26 Jan 2018 18:30
Usando harbour e me 18.1
Fiz a tela abaixo usando child, pois a mesma será minimizada, para acesso a outras telas.
Se o usuário entrar na tela abaixo e minimiza-la e entrar em qq outra tela do sistema (todas são modal) e depois de sair, restaurar a tela abaixo funciona sem problemas.
O problema está se o usuário entrar na tela abaixo, NÃO MINIMIZA-LA e e entrar em qq outra tela do sistema (todas são modal), MAS NÃO ENCERRAR esta tela modal, e retornar para a tela child, trava. Para sair destre problema só apertando alt + tab, fecha a modal ai funciona a child.
Alguém tem a solução? obg
Att.
Marcelo A. L. Carli
Marília/SP
Capital Nacional do Alimento ®
http://marcelo.lx.com.br
http://www.marazambon.blogspot.com/
Email / Skype: malcarli@life.com.br
Fiz a tela abaixo usando child, pois a mesma será minimizada, para acesso a outras telas.
Se o usuário entrar na tela abaixo e minimiza-la e entrar em qq outra tela do sistema (todas são modal) e depois de sair, restaurar a tela abaixo funciona sem problemas.
O problema está se o usuário entrar na tela abaixo, NÃO MINIMIZA-LA e e entrar em qq outra tela do sistema (todas são modal), MAS NÃO ENCERRAR esta tela modal, e retornar para a tela child, trava. Para sair destre problema só apertando alt + tab, fecha a modal ai funciona a child.
Alguém tem a solução? obg
Código: Selecionar todos
If _IsWindowDefined([f_Cmt11])
msginfo([passei restore])
Cmt11_Abrir_Tabela()
DoMethod([f_Cmt11], [Restore])
Else
msginfo([passei inicial])
DEFINE WINDOW f_Cmt11 AT 0, 0 WIDTH 775 HEIGHT 450 TITLE "Agendamento Diário" ICON PATHIMAGENS + [AGENDA.ICO] CHILD NOSIZE NOMAXIMIZE ON INIT {|| Cmt11_Abrir_Tabela(), AddNewPage(@nPage), fAchaAgenda()} ON RELEASE {|| Sair(.F.)} ON RESTORE {|| Cmt11_Abrir_Tabela()}
DEFINE STATUSBAR FONT "Arial" SIZE 9
STATUSITEM "F1 - Ajuda | Manutenção Agendamento Diário"
END STATUSBAR
DEFINE TAB Tab_1 AT 5, 5 WIDTH 760 HEIGHT 380 VALUE 1 BOLD ON CHANGE {|| AddNewPage(@nPage)} HOTTRACK
END TAB
DEFINE CONTEXT MENU
MENUITEM "Apagar Página Selecionada" ACTION {|| DeletePage(@nPage)} IMAGE PATHIMAGENS + [delete.bmp]
END MENU
END WINDOW
_AtivarForm(f_Cmt11, Sair(.T.))
Endif
Return (Nil)
Att.
Marcelo A. L. Carli
Marília/SP
Capital Nacional do Alimento ®
http://marcelo.lx.com.br
http://www.marazambon.blogspot.com/
Email / Skype: malcarli@life.com.br