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

IDE: Fix a regression and another bug in "Center lost window" feature with designed forms. Issue #40940, patch by n7800.

Browse Source
This commit is contained in:
Juha 2024-07-12 09:49:12 +03:00
parent ad09697ffa
commit 6527e6e6b1
1 changed files with 15 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
ide/mainbase.pas
View File

@ -553,12 +553,22 @@ var
itmApplePref: TIDEMenuSection;
{$ENDIF}
// corresponds to InitMenuItem procedure
function FormMatchesCmd(aForm: TCustomForm; aCmd: TIDEMenuCommand): Boolean;
begin
if EnvironmentGuiOpts.Desktop.IDENameForDesignedFormList and IsFormDesign(aForm) then
Result := aForm.Name = aCmd.Caption
if not IsFormDesign(aForm) then
Result := aCmd.Caption = aForm.Caption
else
Result := aForm.Caption = aCmd.Caption;
case aForm.ClassName of
'TFrameProxyDesignerForm', // frame
'TNonControlProxyDesignerForm': // datamodule
Result := aCmd.Caption = AForm.Caption;
else // form
if EnvironmentGuiOpts.Desktop.IDENameForDesignedFormList then
Result := aCmd.Caption = aForm.Name
else
Result := aCmd.Caption = aForm.Caption;
end;
end;
{ TMainIDEBase }
@ -1531,9 +1541,9 @@ begin
AMenuItem.Caption := AForm.Caption;
else // form
if EnvironmentGuiOpts.Desktop.IDENameForDesignedFormList then
AMenuItem.Caption := AForm.Name+' - Designer'
AMenuItem.Caption := AForm.Name
else
AMenuItem.Caption := AForm.Caption+' - Designer';
AMenuItem.Caption := AForm.Caption;
end;
AMenuItem.UserTag := {%H-}PtrUInt(AForm);
end;