Re: Problem with inputwindow
Posted: Mon Feb 19, 2018 1:07 am
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.
Exclusive forum for HMG, a Free / Open Source xBase WIN32/64 Bits / GUI Development System
http://www.hmgforum.com/
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)
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