Limitar el Resize de Ventana MDI

Limitar el Resize de Ventana MDI

Postby jnavas » Tue Sep 29, 2020 12:25 pm

Saludos y buen día
Necesito limitarle al usuario no reducir el tamaño de una ventana MDI.
Agradecido por su Aporte.
User avatar
jnavas
 
Posts: 473
Joined: Wed Nov 16, 2005 12:03 pm
Location: Caracas - Venezuela

Re: Limitar el Resize de Ventana MDI

Postby karinha » Tue Sep 29, 2020 12:49 pm

Esto?

Code: Select all  Expand view

NOMINIMIZE
ó
NOMAXIMIZE
 


Saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7352
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: Limitar el Resize de Ventana MDI

Postby jnavas » Tue Sep 29, 2020 6:35 pm

Saludos
La ventana se crea maximizada, si el usuario la reduce se distorsiona el control TGRAPH, por esto necesito controlar o liminar bResized
User avatar
jnavas
 
Posts: 473
Joined: Wed Nov 16, 2005 12:03 pm
Location: Caracas - Venezuela

Re: Limitar el Resize de Ventana MDI

Postby karinha » Tue Sep 29, 2020 6:44 pm

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7352
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: Limitar el Resize de Ventana MDI

Postby jnavas » Tue Sep 29, 2020 6:47 pm

Saludos,
Presentacion de la Grafica
Image
Redefinir la ventana
Image
User avatar
jnavas
 
Posts: 473
Joined: Wed Nov 16, 2005 12:03 pm
Location: Caracas - Venezuela

Re: Limitar el Resize de Ventana MDI

Postby jnavas » Tue Sep 29, 2020 6:49 pm

Imagen distorcionada
https://ibb.co/PFBbWf6
User avatar
jnavas
 
Posts: 473
Joined: Wed Nov 16, 2005 12:03 pm
Location: Caracas - Venezuela

Re: Limitar el Resize de Ventana MDI

Postby jnavas » Tue Sep 29, 2020 6:54 pm

Imagen Correcta
https://ibb.co/qjsvnX7
User avatar
jnavas
 
Posts: 473
Joined: Wed Nov 16, 2005 12:03 pm
Location: Caracas - Venezuela

Re: Limitar el Resize de Ventana MDI

Postby Cgallegoa » Tue Sep 29, 2020 8:07 pm

Juan, jugando con SysMenu en MDI y MDICHILD:

Code: Select all  Expand view
#include "FiveWin.ch"

Function Mains()
LOCAL ownd, oMenu
MENU oMenu
     MENUITEM "1. No Minimize" ACTION Window2( oWnd , 1)
     MENUITEM "2. No Maximize" ACTION Window2( oWnd , 2)
     MENUITEM "3. No Close" ACTION Window2( oWnd , 3)
     MENUITEM "4. No All" ACTION Window2( oWnd , 4)
     MENUITEM "&Exit" ACTION oWnd:End()
ENDMENU
DEFINE WINDOW oWnd TITLE "MDI  (No Minimize)" MDI MENU oMenu
  WndCenter(oWnd:hWnd)
ACTIVATE WINDOW oWnd ON INIT ( QUITA_BTMENU( oWnd:hWnd , 1 ) , SysRefresh() )
Return(NIL)


Function Window2( oWnd , nOpc )
LOCAL oWin, oMenu
MENU oMenu
     MENUITEM "&Exit MDIChild" ACTION oWin:End()
ENDMENU
DEFINE WINDOW oWin TITLE "Opción: "+Str(nOpc) MDI MENU oMenu
ACTIVATE WINDOW oWin ON INIT ( QUITA_BTMENU( oWnd:oWndClient:hWnd , nOpc ) , SysRefresh() )
Return(NIL)


#pragma BEGINDUMP

#include <Windows.h>
#include <wininet.h>
#include <hbapi.h>


HB_FUNC(QUITA_BTMENU)
{
 // HMENU MenuH = GetSystemMenu(( HWND ) hb_parnl( 1 ),FALSE);
  HMENU MenuH = GetSystemMenu(GetForegroundWindow(),FALSE);
  INT lMenu = hb_parnl( 2 );

  if ( lMenu == 1 ){
     DeleteMenu(MenuH, SC_MINIMIZE, MF_BYCOMMAND);
     EnableMenuItem(MenuH, SC_MINIMIZE, MF_GRAYED);
     }
  else if ( lMenu == 2 ){
     DeleteMenu(MenuH, SC_MAXIMIZE, MF_BYCOMMAND);
     EnableMenuItem(MenuH,SC_MAXIMIZE,MF_GRAYED);
     }
  else if ( lMenu == 3 ){
     DeleteMenu(MenuH, SC_CLOSE, MF_BYCOMMAND);
     EnableMenuItem(MenuH,SC_CLOSE,MF_GRAYED);
    }
  else {
     DeleteMenu(MenuH, SC_MINIMIZE, MF_BYCOMMAND);
     EnableMenuItem(MenuH, SC_MINIMIZE, MF_GRAYED);
     DeleteMenu(MenuH, SC_MAXIMIZE, MF_BYCOMMAND);
     EnableMenuItem(MenuH,SC_MAXIMIZE,MF_GRAYED);
     DeleteMenu(MenuH, SC_CLOSE, MF_BYCOMMAND);
     EnableMenuItem(MenuH,SC_CLOSE,MF_GRAYED);
  }

}

#pragma ENDDUMP
 
Saludos,

Carlos Gallego

*** FWH-23.10, xHarbour 1.2.3 Build 20190603, Borland C++7.30, PellesC ***
Cgallegoa
 
Posts: 425
Joined: Sun Oct 16, 2005 3:32 am
Location: Quito - Ecuador

Re: Limitar el Resize de Ventana MDI

Postby cnavarro » Tue Sep 29, 2020 11:54 pm

Cristobal Navarro
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
User avatar
cnavarro
 
Posts: 6504
Joined: Wed Feb 15, 2012 8:25 pm
Location: España


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 38 guests

cron