inputbox

General Help regarding HMG, Compilation, Linking, Samples

Moderator: Rathinagiri

User avatar
srvet_claudio
Posts: 2193
Joined: Thu Feb 25, 2010 8:43 pm
Location: Uruguay
Contact:

Re: inputbox

Post 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.
Best regards.
Dr. Claudio Soto
(from Uruguay)
http://srvet.blogspot.com
User avatar
bpd2000
Posts: 1207
Joined: Sat Sep 10, 2011 4:07 am
Location: India

Re: inputbox

Post 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
BPD
Convert Dream into Reality through HMG
Javier Tovar
Posts: 1275
Joined: Tue Sep 03, 2013 4:22 am
Location: Tecámac, México

Re: Inputbox

Post 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!!!
User avatar
Pablo César
Posts: 4059
Joined: Wed Sep 08, 2010 1:18 pm
Location: Curitiba - Brasil

Re: Inputbox

Post 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
HMGing a better world
"Matter tells space how to curve, space tells matter how to move."
Albert Einstein
Post Reply