¿Como puedo crear una ventana que no permita cambiar de tamaño ni maximizar?
Quique
¿Como puedo crear una ventana que no permita cambiar de tamaño ni maximizar?
// Prevent resizing
oWnd:aMinMaxInfo := { 0, 0, 0, 0,;
oWnd:nWidth, oWnd:nHeight, oWnd:nWidth, oWnd:nHeight }Gracias
#define W0_ANCHO 620
#define W0_HEIGHT 350
//------------------------------
DEFINE WINDOW soWnd0 ;
TITLE "Protocolo de Transferencia de Archivos (FTP)" ;
ICON aO[_Ico] COLOR CLR_BLACK,CLR_BLACK ;
NOMAXIMIZE ;
FROM 2000,5 TO 2001,5 ;
MENU BuildMenu()
soWnd0:SetSize( W0_ANCHO, W0_HEIGHT )
soWnd0:aMinMaxInfo = { W0_ANCHO, W0_HEIGHT, ; // xMaxSize, yMaxSize
0, 0, ; // xMaxPosition, yMaxPosition
W0_ANCHO, W0_HEIGHT, ; // xMinTrackSize, yMinTrackSize
W0_ANCHO, W0_HEIGHT } // xMaxTrackSize, yMaxTrackSizeDEFINE WINDOW <oWnd> NOMINIMIZE, NO MAXIMIZE TITLE "Window 1"
Creating a new Window:
DEFINE WINDOW <oWnd> ;
[ FROM <nTop>, <nLeft> TO <nBottom>, <nRight> ] ;
[ TITLE <cTitle> ] ;
[ <color: COLOR, COLORS> <nClrFore> [,<nClrBack>] ];
[ OF <oParent> ] ;
[ BRUSH <oBrush> ] ;
[ CURSOR <oCursor> ] ;
[ ICON <oIcon> ] ;
[ MENU <oMenu> ] ;
[ STYLE <nStyle> ] ;
[ BORDER [ NONE | SINGLE ] ] ;
[ NOSYSMENU | NO SYSMENU ] ;
[ NOCAPTION | NO CAPTION | NO TITLE ] ;
[ NOICONIZE | NOMINIMIZE ] ;
[ NOZOOM | NO ZOOM | NOMAXIMIZE | NO MAXIMIZE ] ;
[ VSCROLL | VERTICAL SCROLL ] ;
[ HSCROLL | HORIZONTAL SCROLL ]
DEFINE WINDOW oWnd FROM 0,0 TO 484,700 PIXEL TITLE "Sistema:" STYLE nOr(WS_SYSMENU,WS_MAXIMIZE,WS_MINIMIZEBOX)Gracias a todos por su ayuda, probé todas las opciones, y la que mas me gustó fue la de Adhemar, porque con esa opción, ni siquiera cambia el apuntador del ratón como si permitiera cambiar el tamaño, hace lo que necesito, que es permitir minimizar pero sin maximizar ni cambiar el tamaño de la ventana, lo único que no me gusta es que hay que indicar las coordenadas (FROM ... TO ...), las otras me permiten indicar tamaño sin necesidad de indicar posición, pero bueno, funciona ![]()