Fixing MDI-Bug in Delphi 5
tom
Since Inprise hasn't very interests of fixing her bug, I post it here!
greating
Thomas
----------------------------------------------------------------------------
--------------------------------------
The following MergeMenu function fixes two bugs
=======================================
When do the Bugs appear:
- more than one MDI-Child is maximized and
- switching to another window and
- the child has a menu and
- the menu on the MainMenu's property "automerge=true"
The Bugs are:
1.) The close button grayed out.
2.) In Delphi 5 the system-icons and Menu where drawn correctly, but the
mdi-child-system-icons are missing. So the menu moves left and under
win98/2000 this looks very funny.
----------------------------------------------------------------------------
--------------------------------------
How to fix:
========
1.) Sorry You can only do it, if you have the professional or enterprise
version.
2.) Add the source path in the environment options:
Menu => Tools/Environment options
Tab => Library
Library path => $(DELPHI)\Source\VCL
3.) Edit Forms.pas
4.) Compile the your MDI-Application
----------------------------------------------------------------------------
--------------------------------------
Full Source of the function:
======================
procedure TCustomForm.MergeMenu(MergeState: Boolean);
var
AMergeMenu: TMainMenu;
//Add these variables here
Size,
Style : longint;
begin
if not (fsModal in FFormState) and
(Application.MainForm <> nil) and
(Application.MainForm.Menu <> nil) and
(Application.MainForm <> Self) and
((FormStyle = fsMDIChild) or (Application.MainForm.FormStyle <> fsMDIForm))
then
begin
AMergeMenu := nil;
if not (csDesigning in ComponentState) and (Menu <> nil) and
(Menu.AutoMerge or (FormStyle = fsMDIChild)) then AMergeMenu := Menu;
with Application.MainForm.Menu do
if MergeState then Merge(AMergeMenu) else Unmerge(AMergeMenu);
// =====================> Add in Delphi 5 <==================
if MergeState and (FormStyle = fsMDIChild) and (WindowState = wsMaximized)
then
begin
{ Force MDI to put back the system menu of a maximized child }
Size := ClientWidth + (Longint(ClientHeight) shl 16);
SendMessage(Handle, WM_SIZE, SIZE_RESTORED, Size);
// ==================> Remove from Delphi 2?,3?,4 <================
// SendMessage(Handle, WM_SIZE, SIZE_MAXIMIZED, Size);
// ====================> Add in Delphi 2?,3?,4,5 <=================
//new lines to patch the grayed out close-button
Style:=GetWindowLong(Handle,GWL_STYLE) or ws_sysmenu;
SetWindowLong(Handle, GWL_STYLE, Style);
end;
// ==========================================================
end;
end;