FiveTech Software tech support forums

... q no pasaba antes






DEFINE WINDOW oWnd FROM 0,0 TO nHeith,nWith PIXEL MDICHILD OF oWind ;
TITLE "Mantenimiento de Valorizaciones" ICON oIco NOZOOM NOICONIZE

@ 10,10 XBROWSE oBrw OF oWnd ;
DATASOURCE oQry ;
COLUMNS aCols ;
LINES CELL AUTOSORT SIZE -10,-10 PIXEL FONT oFont

WITH OBJECT oBrw ...

... complicada; ¿como hago para que la ventana principal de la aplicación no pueda ser cambiada de tamaño?

Ya evito que se la maximize con el comando NOZOOM al definir la WINDOW; pero no puedo evitar que al tener la sección de mensajes activa por el uso de SET MESSAGE me le cambien el tamaño con el ...

... Define SW_MINIMIZE 6
#Define SW_RESTORE 9

/*******************************/
function Main()
/*
*/
define window ownd from 10, 10 to 20, 30 ;
nozoom ;
noiconize ;
nosysmenu ;
no caption ;
border none title 'Focus Test Application '

@ 3, 5 BUTTON oButton[1] prompt "&Ok" SIZE 40, 20 ACTION ...

... Negrita" SIZE 0,-13
DEFINE WINDOW oWnd FROM 0,0 TO 35.4,126.0;
TITLE "Mantenimiento de Ingresos y Salidas "+"["+PROCNAME()+"]";
ICON oIco;
NOZOOM;
MDICHILD OF oWPpal

USE GUIINGAL INDE GUIINGA1,GUIINGA2,GUIINGA3,GUIINGA4 SHARED ALIAS GUIINGAL NEW
USE GUISAL INDE GUISAL1,GUISAL2,GUISAL3 ...

... 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 ]

... WINDOW oUser ;
FROM 2,2 to 25,65 ;
of oWndMDI ;
TITLE "USERINFO Administrative Browse" ;
MENU BuildMenu(oRsUser) ;
ICON oICO ;
NOMINIMIZE ;
NOZOOM ;
MDICHILD

@ 0, 0 xBROWSE oBrow of oUser ;
RECORDSET oRsUser ;
COLUMNS "USERID", ;
"WRITE", ;
"MGR", ;
"SUPER", ;
"lastlog" ;
COLSIZES 90 ...

... DEFINIDA EN CLASES.PRG

DEFINE WINDOW oConfig:oWnd TITLE "Modulo: ARCHIVOS - Maestro Configuraciones" OF oDatos:oWndPPAL MDICHILD NO SYSTEMENU NOZOOM

SET MESSAGE OF oConfig:oWnd TO "Configuraciones y Constantes... " 2007

DEFINE DIALOG oConfig:oDlg RESOURCE "DLG_FOLDER" OF oConfig:oWnd ...

la declaracion de las MDI no se usa la clausula NOZOOM, pero puedes intentar con esto style nOr( WS_OVERLAPPED + WS_CAPTION + WS_THICKFRAME + WS_CLIPCHILDREN )

DEFINE WINDOW oWndD TITLE "Aida Control de Polizas V 1.00 2008" from oTop,oLeft to oBottom,oRight MDI Color nRgb(230, 230, 250 ),nRgb( 132 ...

HOLA


YA USE NOZOOM PERO ME SALE EL SIGUIENTE ERROR

C:\FWH\PROMOTORIA\PRG\TEST2003.PRG(371) Warning W0001 Ambiguous reference: 'MDI'

A SI DEFINO EL WINDOWS

DEFINE WINDOW oWndD NOZOOM TITLE "Aida Control de Polizas V 1.00 2008" from oTop,oLeft to oBottom,oRight MDI Color nRgb(230, 230, 250 ),nRgb ...

AIDA,

si es una WINDOW en el define coloca NOZOOM y listo.

softruz wrote:define window oWnd from 0,0 to 0, 0 MDICHILD of oConfiguracion:oWnd PIXEL NOZOOM NOICONIZE colors RGB(0,0,0), getsyscolor ( 15 )

Yo hago esto:
define window oWnd from -20,-20 to 10, 10 MDICHILD of oConfiguracion:oWnd PIXEL NOZOOM NOICONIZE colors RGB(0,0,0), getsyscolor ( 15 )

... que sea transparente al operador, yo utilizo el siguiente codigo:

define window oWnd from 0,0 to 0, 0 MDICHILD of oConfiguracion:oWnd PIXEL NOZOOM NOICONIZE colors RGB(0,0,0), getsyscolor ( 15 )
oWnd:nHeight := 0
oWnd:nWidth := 0
activate window oWnd on init msginfo("1")

Pero me ...

... End Def. FWD *** Window/Dialog: oFamili10 */


DEFINE WINDOW oMdiChild MDICHILD FROM 0,0 TO 520,804 TITLE ;
"Dades de les FAMÍLIES" OF oMdi ;
NOZOOM PIXEL //FIVEWIDI

@ 408,721 SAY oIndiMes PROMPT "->" OF oMdiChild COLORS CLR_HBLUE,CLR_HRED ;
CENTER PIXEL SIZE 15,15 UPDATE //FIVEWIDI

@ 408,757 ...

DEFINE WINDOW oWnd FROM 0, 0 TO 35, 100;
TITLE ynomcia+' (Sistema de Garantías)' ;
NOSYSMENU;
ICON oIcon


TAMBIEN PUEDES UTILIZAR:
NOICONIZE
NOZOOM

PERO LO QUE PUEDES HACER ES DESAPARECER EL CERRAR Y DEJAR
ACTIVOS EL ICONIZE Y EL ZOOM

... RETURN(.F.)
ENDIF
oRs:MoveFirst()
DEFINE WINDOW oGRP ;
FROM 2,2 to 30,70 ;
of oWndMDI ;
TITLE cTITLE ;
MENU BuildMenu( oRs ) ;
NOMINIMIZE ;
NOZOOM ;
MDICHILD
@ 0, 0 LISTBOX oBrow FIELDS ;
oRs:Fields("CODE"):Value, ;
oRs:Fields("DESC"):Value, ;
oRs:Fields("progid"):Value ;
SIZES 80,250,80 ...