paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-07 12:44:00 +02:00
Code Issues Packages Projects Releases Wiki Activity

win32: remove some system menu items from the window if borderstyle = bsDialog to behave the same as standard windows dialogs and delphi dialogs

Browse Source 
git-svn-id: trunk@26770 -
This commit is contained in:
paul 2010-07-22 04:47:44 +00:00
parent e46c3429be
commit e0a5a6d15b
1 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
lcl/interfaces/win32/win32wsforms.pp
View File

@ -360,6 +360,7 @@ var
Params: TCreateWindowExParams;
lForm: TCustomForm absolute AWinControl;
Bounds: TRect;
SystemMenu: HMenu;
begin
// general initialization of Params
PrepareCreateWindow(AWinControl, AParams, Params);
@ -403,6 +404,18 @@ begin
FinishCreateWindow(AWinControl, Params, false);
Result := Params.Window;
// remove system menu items for bsDialog
if lForm.BorderStyle = bsDialog then
begin
SystemMenu := GetSystemMenu(Result, False);
DeleteMenu(SystemMenu, SC_RESTORE, MF_BYCOMMAND);
DeleteMenu(SystemMenu, SC_SIZE, MF_BYCOMMAND);
DeleteMenu(SystemMenu, SC_MINIMIZE, MF_BYCOMMAND);
DeleteMenu(SystemMenu, SC_MAXIMIZE, MF_BYCOMMAND);
DeleteMenu(SystemMenu, 1, MF_BYPOSITION); // remove the separator between move and close
end;
// Beginning with Windows 2000 the UI in an application may hide focus
// rectangles and accelerator key indication. According to msdn we need to
// initialize all root windows with this message