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 ! :D