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.
WAIT WINDOW
Moderator: Rathinagiri
-
- Posts: 172
- 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
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
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
Re: WAIT WINDOW
Only by changing sizes of _HMG_CHILDWAITWINDOW before calling WAIT WINDOW
Default sizes of WAIT WINDOW:
New sizes for WAIT WINDOW:
Remember to restore the default WAIT WINDOW sizes if you do not need a wider / higher 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
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
- mustafa
- Posts: 1158
- Joined: Fri Mar 20, 2009 11:38 am
- DBs Used: DBF
- Location: Alicante - Spain
- Contact:
Re: WAIT WINDOW
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
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
*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*
-
- Posts: 172
- 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
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.
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
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