Problem with inputwindow
Moderator: Rathinagiri
- srvet_claudio
- Posts: 2193
- Joined: Thu Feb 25, 2010 8:43 pm
- Location: Uruguay
- Contact:
Re: Problem with inputwindow
I think the problem is due to the mix of libraries (console, gt and HMG), any carelessness can be fatal. IMHO, I think it's best to make a clean code only with HMG.
-
- Posts: 146
- Joined: Sat May 30, 2015 5:15 am
Re: Problem with inputwindow
tá aí uma coisa que eu não tinha pensado...srvet_claudio wrote: ↑Mon Feb 19, 2018 1:07 am problem is due to the mix of libraries (console, gt and HMG)
Então, Dr. Soto, existe uma possiblidade de no decorrer do sistema, eu separe e execute as GTs de forma separada?
Por exemplo:
a maior parte do meu sistema está usando a GTWVG, apenas esta tela quero que seja em HMG.
Então, no lugar de eu invocar a GT_WIN_DEFAULT no início do MAIN.PRG posso fazer isso apenas no módulo (PRG) em questão?
Mais ou menos assim:
Quando o aplicativo iniciar terei uma HB_GTSYS_WVG(), com o seguinte código para ser usado no MAIN.PRG:
Code: Select all
*-----------------------------------------------------------------------------*
PROCEDURE HB_GTSYS_WVG()
REQUEST HB_GT_WVG_DEFAULT
REQUEST HB_GT_WVG
RETURN
*-----------------------------------------------------------------------------*
Code: Select all
*-----------------------------------------------------------------------------*
PROCEDURE HB_GTSYS_HMG()
REQUEST HB_GT_WIN_DEFAULT
REQUEST HB_GT_WIN
CRIA_WINDOW_MAIN()
RETURN
*-----------------------------------------------------------------------------*[/code
e agora só falta a função CRIA_WINDOW_MAIN():
[code]*-------------------------------------------------------------------------------
func CRIA_WINDOW_MAIN()
DEFINE WINDOW Frm_MAIN NOMAXIMIZE NOMINIMIZE ;
AT 0,0 ;
WIDTH 10 ;
HEIGHT 10 ;
TITLE 'sistema teste' ;
MAIN
END WINDOW
CENTER WINDOW Frm_MAIN
ACTIVATE WINDOW Frm_MAIN
MINIMIZE WINDOW Frm_MAIN // para minimizar o formulário MAIN que é apenas fictício 14/3/16w
retu
*-------------------------------------------------------------------------------
Code: Select all
#include "hmg.ch"
todos os comandos e funções abaixo
etc
etc
return
grato,
MICROVOLUTION