WAIT WINDOW

HMG en Español

Moderator: Rathinagiri

Post Reply
jorge.posadas
Posts: 171
Joined: Mon May 19, 2014 7:43 pm
DBs Used: DBF, SQLite, MS-SQL, ACCESS, MariaDB (en proceso)
Location: Morelia, Mich. México
Contact:

WAIT WINDOW

Post by jorge.posadas »

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

POSADAS SOFTWARE
Jorge Posadas Ch.
Programador independiente
Morelia, Mich.
M é x i c o .
Movil +52 44 3734 1858
SKYPE: jorge.posadasch
Email: posoft@gmx.com
edk
Posts: 909
Joined: Thu Oct 16, 2014 11:35 am
Location: Poland

Re: WAIT WINDOW

Post by edk »

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: 1158
Joined: Fri Mar 20, 2009 11:38 am
DBs Used: DBF
Location: Alicante - Spain
Contact:

Re: WAIT WINDOW

Post by mustafa »

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: 909
Joined: Thu Oct 16, 2014 11:35 am
Location: Poland

Re: WAIT WINDOW

Post by edk »

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: 171
Joined: Mon May 19, 2014 7:43 pm
DBs Used: DBF, SQLite, MS-SQL, ACCESS, MariaDB (en proceso)
Location: Morelia, Mich. México
Contact:

Re: WAIT WINDOW

Post by jorge.posadas »

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

POSADAS SOFTWARE
Jorge Posadas Ch.
Programador independiente
Morelia, Mich.
M é x i c o .
Movil +52 44 3734 1858
SKYPE: jorge.posadasch
Email: posoft@gmx.com
Post Reply