Page 1 of 1
WAIT WINDOW
Posted: Mon Feb 19, 2018 5:38 am
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.
Re: WAIT WINDOW
Posted: Mon Feb 19, 2018 9:58 am
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.
Re: WAIT WINDOW
Posted: Mon Feb 19, 2018 12:59 pm
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
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
*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*
Re: WAIT WINDOW
Posted: Mon Feb 19, 2018 1:19 pm
by edk
mustafa wrote: ↑Mon Feb 19, 2018 12:59 pm
We can also enlarge the Size Letter of the Message
Regards
Mustafa
Indeed
Re: WAIT WINDOW
Posted: Mon Feb 19, 2018 4:10 pm
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.