Page 2 of 2
Re: inputbox
Posted: Wed Jan 14, 2015 2:22 pm
by srvet_claudio
This should not be necessary:
srvet_claudio wrote:
_HMG_SYSDATA [ 271 ] := .F. // _HMG_IsModalActive, InputBox() is a modal Window
is a deficiency of SET WINDOW MAIN OFF, I'll fix in future releases.
Re: inputbox
Posted: Wed Jan 14, 2015 3:51 pm
by bpd2000
srvet_claudio wrote:
is a deficiency of SET WINDOW MAIN OFF, I'll fix in future releases.
We are eagerly waiting for new release
Re: Inputbox
Posted: Wed Jan 14, 2015 5:09 pm
by Javier Tovar
Hola Pablo César,
No se de donde sacaste el ejemplo de arriba, pero lo que subi es:
Code: Select all
#include "hmg.ch"
Function main()
DEFINE WINDOW Form_1 ;
AT 0,0 ;
WIDTH 1 ; //640,480
HEIGHT 1 ;
TITLE 'InputBox Demo' ;
MAIN ;
ON INIT (MsgInfo("Hola"),Form_1.WIDTH := 640, Form_1.HEIGHT:=480)
Saludos
Aunque la solución del Dr. Claudio Soto es genial!!!
Re: Inputbox
Posted: Wed Jan 14, 2015 7:15 pm
by Pablo César
Javier Tovar wrote:No se de donde sacaste el ejemplo de arriba, pero lo que subi es:
Code: Select all
#include "hmg.ch"
Function main()
DEFINE WINDOW Form_1 ;
AT 0,0 ;
WIDTH 1 ; //640,480
HEIGHT 1 ;
TITLE 'InputBox Demo' ;
MAIN ;
ON INIT (MsgInfo("Hola"),Form_1.WIDTH := 640, Form_1.HEIGHT:=480)
Si, Javier. Yo apenas alteré lo mismo que vos pusiste para dar ejemplo de que se puede esconder al inves de hacer chiquito.
Javier Tovar wrote:Aunque la solución del Dr. Claudio Soto es genial!!!
Seguro !