FiveTech Software tech support forums

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

... 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,GUISAL4,GUISAL5 ...

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

... 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", ...

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

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

HOLA YA USE NOZOOM PERO ME SALE EL SIGUIENTE ERROR :shock: 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 ...

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 )

... para 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 aparece ...

... /* *** 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 ...