how to disable minimize and maximize buttons on main window

[Tevlac]

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

[Antonio Linares]

Code: Select all  Expand view

#include "FiveWin.ch"

function Main()

   local oWnd

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

   ACTIVATE WINDOW oWnd

return nil


[Tevlac]

Thank you Antonio

[anserkk]

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

[RAMESHBABU]

Hi Anser

Here it is

Code: Select all  Expand view

#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

[anserkk]

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: Select all  Expand view

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: Select all  Expand view

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: Select all  Expand view

  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

[James Bott]

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

[anserkk]

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: Select all  Expand view

DEFINE WINDOW oWnd MDICHILD of WndMain() ;
                    STYLE  nOr( WS_CAPTION, WS_VISIBLE, WS_SYSMENU, WS_MINIMIZEBOX )

ACTIVATE WINDOW oWnd

Regards
Anser

[nageswaragunupudi]

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?

[anserkk]

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: Select all  Expand view

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