FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour how to disable minimize and maximize buttons on main window
Posts: 5
Joined: Wed Aug 01, 2007 06:55 AM
how to disable minimize and maximize buttons on main window
Posted: Wed Aug 01, 2007 01:08 PM

Hello all,
Can you send me a sample showing how to disable minimize and maximize buttons on main window MDI
Thank you

Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
how to disable minimize and maximize buttons on main window
Posted: Wed Aug 01, 2007 04:48 PM
#include "FiveWin.ch"

function Main()

   local oWnd

   DEFINE WINDOW oWnd STYLE nOr( WS_CAPTION, WS_VISIBLE, WS_SYSMENU ) MDI

   ACTIVATE WINDOW oWnd

return nil
regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 5
Joined: Wed Aug 01, 2007 06:55 AM
how to disable minimize and maximize buttons on main window
Posted: Wed Aug 01, 2007 07:47 PM

Thank you Antonio

Posts: 1335
Joined: Fri Jun 13, 2008 11:04 AM
Re: how to disable minimize and maximize buttons on main window
Posted: Mon Feb 01, 2010 06:34 AM

Hi,

What would be the command to remove only the Maximize/Restore button from a MDI child window. ie I need the minimize and close buttons to be there on the windows.

Regards
Anser

Posts: 654
Joined: Fri Oct 21, 2005 05:54 AM
Re: how to disable minimize and maximize buttons on main window
Posted: Mon Feb 01, 2010 07:26 AM
Hi Anser

Here it is

Code (fw): Select all Collapse
#include "FiveWin.ch"

#define MF_BYPOSITION 1024 // 0x0400
#define MF_DISABLED   2

function Main()

   local oWnd

   DEFINE WINDOW oWnd FROM 1, 1 TO 20, 70  STYLE nOR(WS_POPUP, WS_VISIBLE, WS_CAPTION, WS_SYSMENU, WS_THICKFRAME,WS_MINIMIZEBOX) MDI

   ACTIVATE WINDOW oWnd ON INIT RemoveMItems(oWnd, .T.)

return nil

***********

FUNCTION RemoveMItems(oWin, lDisable)

LOCAL hMenu  := 0
LOCAL nCount := 0

IF lDisable
   hMenu  = GetSystemMenu(oWin:hWnd, .F.)
   nCount = GetMItemCount(hMenu)
   IF oWin:ClassName() = "TDIALOG"
      RemoveMenu(hMenu, 1, nOR( MF_BYPOSITION, MF_DISABLED) )
   ELSE
      RemoveMenu(hMenu, nCount - 3, nOR( MF_BYPOSITION, MF_DISABLED) )
      RemoveMenu(hMenu, nCount - 7, nOR( MF_BYPOSITION, MF_DISABLED) )
   ENDIF
   DrawMenuBar( oWin:hWnd )
ELSE
   GetSystemMenu( oWin:hWnd, .T. )
   DrawMenuBar( oWin:hWnd )
ENDIF

RETURN nil


Regards,

- Ramesh Babu P
Posts: 1335
Joined: Fri Jun 13, 2008 11:04 AM
Re: how to disable minimize and maximize buttons on main window
Posted: Mon Feb 01, 2010 08:08 AM
Dear Ramesh,

Thank you for the code. Your sample code is working fine on the MDI window, unfortunately when I try it on the MDI CHILD window of my real app, only the Close button is getting disabled


1. If I create the MDI child window without applying any style (Default one) only the Close button is disabled and the other controls ie Minimize & Maximaize are active

Code (fw): Select all Collapse
DEFINE WINDOW oWnd MDICHILD OF WndMain() FROM 0.5,2 to 27.5,47 TITLE "Quick Search" ;
                      ICON  oAppIcon COLOR oApp:nTextClr, oApp:nBkgClr


2. If I create the MDI child window with the style specified on your code ie STYLE nOR(WS_POPUP, WS_VISIBLE, WS_CAPTION, WS_SYSMENU, WS_THICKFRAME,WS_MINIMIZEBOX), then I am getting the following error.

Code (fw): Select all Collapse
DEFINE WINDOW oWnd MDICHILD OF WndMain() FROM 0.5,2 to 27.5,47 TITLE "Quick Search" ;
                      ICON  oAppIcon COLOR oApp:nTextClr, oApp:nBkgClr ;
                      STYLE nOR(WS_POPUP, WS_VISIBLE, WS_CAPTION, WS_SYSMENU, WS_THICKFRAME,WS_MINIMIZEBOX)

Code (fw): Select all Collapse
   Called from: source\rtl\tobject.prg => TMDICHILD:ERROR(172)
   Called from: source\rtl\tobject.prg => TMDICHILD:MSGNOTFOUND(205)
   Called from: source\rtl\tobject.prg => TMDICHILD:DEFCONTROL(0)
   Called from: .\source\classes\SAY.PRG => TSAY:NEW(145)
   Called from: .\CStock.PRG => QUICKSEARCH(509)


The error seems to be from the Class SAY.
Am I missing something ?

My requirement is to either remove OR disable the Maximize/Restore control on the MDI CHILD window. My first preference is to remove the Maximize/Restore control

Thanks in advance.

Regards
Anser
Posts: 4840
Joined: Fri Nov 18, 2005 04:52 PM
Re: how to disable minimize and maximize buttons on main window
Posted: Mon Feb 01, 2010 05:52 PM

Anser,

>My requirement is to either remove OR disable the Maximize/Restore control on the MDI CHILD window. My first preference is to remove the Maximize/Restore control

This sounds like a non-modal dialog. Have you consider that?

Regards,
James

FWH 18.05/xHarbour 1.2.3/BCC7/Windows 10
Posts: 1335
Joined: Fri Jun 13, 2008 11:04 AM
Re: how to disable minimize and maximize buttons on main window
Posted: Tue Feb 02, 2010 07:29 AM
Hi Mr.James,

The following code solved my problem. Applying the following style, disabled the Maximize/Restore button on a MDICHILD Window.
If this also failed then I would have opted a Non Modal Dialog.

Code (fw): Select all Collapse
DEFINE WINDOW oWnd MDICHILD of WndMain() ;
                    STYLE  nOr( WS_CAPTION, WS_VISIBLE, WS_SYSMENU, WS_MINIMIZEBOX ) 

ACTIVATE WINDOW oWnd


Regards
Anser
Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM
Re: how to disable minimize and maximize buttons on main window
Posted: Tue Feb 02, 2010 01:45 PM

Where is the need to adopt such complex approach? Cant we simply disable these buttons while creating the window ( normal, MDI, MDICHILD ) by using the syntax already provided by FWH?

CREATE WINDOW ....... NOMINIMIZE NOMAXIMIZE

This does the job. Or am I missing something?

Regards



G. N. Rao.

Hyderabad, India
Posts: 1335
Joined: Fri Jun 13, 2008 11:04 AM
Re: how to disable minimize and maximize buttons on main window
Posted: Wed Feb 03, 2010 05:12 AM
Dear Mr.Rao,

Your Quote
It is true that we can disable maximize or minimize buttons by simply using clauses NOMAXIMIZE, NOMINIMIZE, etc. while creating the window. But still the user can resize the window by dragging the right bottom corner of the window.

aMinMaxInfo gives us the full control on resizing. ( We can also control with ON RESIZE clause, but that is not elegant )

I found that, using the single line code using the STYLE is serving the expected behavior.
Code (fw): Select all Collapse
STYLE  nOr( WS_CAPTION, WS_VISIBLE, WS_SYSMENU, WS_MINIMIZEBOX )


According to me the disadvantage of using aMinMaxInfo is that it requires me to calculate the height and width in pixels. In future every time I need to alter the window size, I will have to recalculate the height and width again. Whereas using the STYLE, I need not bother about it. I don't use resource editors.

Regards
Anser

Continue the discussion