is a deficiency of SET WINDOW MAIN OFF, I'll fix in future releases.srvet_claudio wrote: _HMG_SYSDATA [ 271 ] := .F. // _HMG_IsModalActive, InputBox() is a modal Window
inputbox
Moderator: Rathinagiri
- srvet_claudio
- Posts: 2044
- Joined: Thu Feb 25, 2010 8:43 pm
- Location: Uruguay
- Has thanked: 35 times
- Been thanked: 147 times
- Contact:
Re: inputbox
This should not be necessary:
-
- Posts: 1275
- Joined: Tue Sep 03, 2013 4:22 am
- Location: Tecámac, México
- Has thanked: 1 time
- Been thanked: 2 times
Hola Pablo César,
No se de donde sacaste el ejemplo de arriba, pero lo que subi es:
Saludos
Aunque la solución del Dr. Claudio Soto es genial!!!
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)
Aunque la solución del Dr. Claudio Soto es genial!!!
- Pablo César
- Posts: 4059
- Joined: Wed Sep 08, 2010 1:18 pm
- Location: Curitiba - Brasil
- Has thanked: 100 times
- Been thanked: 182 times
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: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)
Seguro !Javier Tovar wrote:Aunque la solución del Dr. Claudio Soto es genial!!!

HMGing a better world
"Matter tells space how to curve, space tells matter how to move."
Albert Einstein
"Matter tells space how to curve, space tells matter how to move."
Albert Einstein