WAIT WINDOW

HMG en Español

Moderator: Rathinagiri

Post Reply
jorge.posadas
Posts: 57
Joined: Mon May 19, 2014 7:43 pm
DBs Used: DBF, SQLite, MS-SQL, ACCESS, MariaDB (en proceso)
Location: Tizayuca, Hgo. México
Been thanked: 3 times
Contact:

WAIT WINDOW

Post by jorge.posadas » Mon Feb 19, 2018 5:38 am

Grupo

¿Es posible que WAIT WINDOW , le pueda dar mas ANCHURA y más LONGITUD?
Esto lo pregunto porque lo uso para poner mensajes y en ocasiones el mensaje es más grande que la anchura estándar que tiene WAIT WINDOW .

Ojala se pueda hacer.

De antemano gracias por la ayuda.
Cordialmente

Jorge Posadas Ch
Tizayuca, Hgo.
M é x i c o .
SKYPE: jorge.posadasch
Email: jorge.posadas@posee.org.mx

edk
Posts: 285
Joined: Thu Oct 16, 2014 11:35 am
Location: Poland
Has thanked: 76 times
Been thanked: 225 times

Post by edk » Mon Feb 19, 2018 9:58 am

Only by changing sizes of _HMG_CHILDWAITWINDOW before calling WAIT WINDOW

Default sizes of WAIT WINDOW:

Code: Select all

DECLARE WINDOW _HMG_CHILDWAITWINDOW 
//defaults for WAIT WINDOW
_HMG_CHILDWAITWINDOW.HEIGHT := 40
_HMG_CHILDWAITWINDOW.WIDTH := 500
_HMG_CHILDWAITWINDOW.MESSAGE.HEIGHT := 25
_HMG_CHILDWAITWINDOW.MESSAGE.WIDTH := 480
_HMG_CHILDWAITWINDOW.CENTER
New sizes for WAIT WINDOW:

Code: Select all

DECLARE WINDOW _HMG_CHILDWAITWINDOW 
_HMG_CHILDWAITWINDOW.HEIGHT := 80	//double height of window
_HMG_CHILDWAITWINDOW.WIDTH := 800	//new width of window
_HMG_CHILDWAITWINDOW.MESSAGE.HEIGHT := 50	//double message height: 2 lines of message are possible
_HMG_CHILDWAITWINDOW.MESSAGE.WIDTH := 780	//new width of message: wider message is possible
_HMG_CHILDWAITWINDOW.CENTER
Remember to restore the default WAIT WINDOW sizes if you do not need a wider / higher window.

User avatar
mustafa
Posts: 631
Joined: Fri Mar 20, 2009 11:38 am
Location: Alicante - Spain
Been thanked: 52 times

Post by mustafa » Mon Feb 19, 2018 12:59 pm

Hola edk
Muy Buen Sample
También podemos agrandar el Tamaño Letra del Mensaje
*------------------------------------------------------------------*
Hello edk
Very Good Sample
We can also enlarge the Size Letter of the Message
Regards
Mustafa :idea: :lol:

Code: Select all


#include "hmg.ch"

FUNCTION MAIN

  DEFINE WINDOW MAINx AT 0, 0 WIDTH 800 HEIGHT 600 TITLE ""ICON '' Main NOSIZE  NOMINIMIZE NOMAXIMIZE ON INIT Export()

   ON KEY ESCAPE ACTION Mainx.Release
           
   END WINDOW

  Mainx.Center
  Mainx.Activate

Return

*-------------------------------------*
Function Export()
*-------------------------------------*

*-------------------------  Normal ----------------------------------*
/*

DECLARE WINDOW _HMG_CHILDWAITWINDOW 
//defaults for WAIT WINDOW
_HMG_CHILDWAITWINDOW.HEIGHT := 040
_HMG_CHILDWAITWINDOW.WIDTH  := 500
_HMG_CHILDWAITWINDOW.MESSAGE.HEIGHT := 025
_HMG_CHILDWAITWINDOW.MESSAGE.WIDTH  := 480
_HMG_CHILDWAITWINDOW.CENTER

*/
*--------------------------------  Normal ------------------------------------*
*-------------------------------  Arreglo -------------------------------------*

DECLARE WINDOW _HMG_CHILDWAITWINDOW 
_HMG_CHILDWAITWINDOW.HEIGHT := 080	       //double height of window                                 doble altura de la ventana
_HMG_CHILDWAITWINDOW.WIDTH  := 800	       //new width of window                                     nuevo ancho de ventana 
_HMG_CHILDWAITWINDOW.MESSAGE.HEIGHT := 050     //double message height: 2 lines of message are possible   altura del mensaje doble: son posibles 2 líneas de mensaje
_HMG_CHILDWAITWINDOW.MESSAGE.WIDTH  := 780     //new width of message: wider message is possible          nuevo ancho del mensaje: es posible un mensaje más amplio
_HMG_CHILDWAITWINDOW.CENTER

*----------------------------- New FONT & COLOR --------------------------*
_HMG_CHILDWAITWINDOW.MESSAGE.BACKCOLOR  := {096,173,174} 
*---------------------------------------------------------------------------*
_HMG_CHILDWAITWINDOW.MESSAGE.FONTNAME   := "Arial"
_HMG_CHILDWAITWINDOW.MESSAGE.FONTSIZE   :=  12
_HMG_CHILDWAITWINDOW.MESSAGE.FONTBOLD   := .T.
_HMG_CHILDWAITWINDOW.MESSAGE.FONTITALIC := .T.
*-------------------------------------  Arreglo ---------------------------------*

 wait window  CRLF +  "Exporting Table " 

 wait clear

Return

*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*


edk
Posts: 285
Joined: Thu Oct 16, 2014 11:35 am
Location: Poland
Has thanked: 76 times
Been thanked: 225 times

Post by edk » Mon Feb 19, 2018 1:19 pm

mustafa wrote:
Mon Feb 19, 2018 12:59 pm
We can also enlarge the Size Letter of the Message
Regards
Mustafa :idea: :lol:
Indeed 8-)

jorge.posadas
Posts: 57
Joined: Mon May 19, 2014 7:43 pm
DBs Used: DBF, SQLite, MS-SQL, ACCESS, MariaDB (en proceso)
Location: Tizayuca, Hgo. México
Been thanked: 3 times
Contact:

Post by jorge.posadas » Mon Feb 19, 2018 4:10 pm

EDK

Muchas gracias, esto era exactemante lo que necesitaba, ya hice pruebas y me gusto.

google,
Thank you very much, this was exacting what I needed, I already did tests and I liked it.
Cordialmente

Jorge Posadas Ch
Tizayuca, Hgo.
M é x i c o .
SKYPE: jorge.posadasch
Email: jorge.posadas@posee.org.mx

Post Reply