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

Cody/Dictionary: Remember window layout

Browse Source
This commit is contained in:
n7800 2025-06-20 11:03:25 +05:00 committed by Maxim Ganetsky
parent 3d540e424d
commit 30c41494e8
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/codetools/ide/codyidentifiersdlg.pas
View File

@ -41,8 +41,8 @@ uses
// LCL // LCL
Forms, Controls, Dialogs, ButtonPanel, StdCtrls, ExtCtrls, LCLType, Buttons, Menus, Forms, Controls, Dialogs, ButtonPanel, StdCtrls, ExtCtrls, LCLType, Buttons, Menus,
// IdeIntf // IdeIntf
PackageIntf, LazIDEIntf, SrcEditorIntf, ProjectIntf, PackageIntf, LazIDEIntf, SrcEditorIntf, ProjectIntf, CompOptsIntf, IDEDialogs,
CompOptsIntf, IDEDialogs, IDEMsgIntf, IDEExternToolIntf, ProjPackIntf, IDEMsgIntf, IDEWindowIntf, IDEExternToolIntf, ProjPackIntf,
// Codetools // Codetools
CodeCache, BasicCodeTools, CustomCodeTool, CodeToolManager, UnitDictionary, CodeCache, BasicCodeTools, CustomCodeTool, CodeToolManager, UnitDictionary,
CodeTree, LinkScanner, DefineTemplates, FindDeclarationTool, CodeTree, LinkScanner, DefineTemplates, FindDeclarationTool,
@ -969,6 +969,7 @@ begin
CodyOptions.PreferImplementationUsesSection:= CodyOptions.PreferImplementationUsesSection:=
AddToImplementationUsesCheckBox.Checked; AddToImplementationUsesCheckBox.Checked;
FreeAndNil(FItems); FreeAndNil(FItems);
IDEDialogLayoutList.SaveLayout(self);
end; end;
procedure TCodyIdentifiersDlg.FormCreate(Sender: TObject); procedure TCodyIdentifiersDlg.FormCreate(Sender: TObject);
@ -998,6 +999,7 @@ begin
ContainsRadioButton.Checked:=false; ContainsRadioButton.Checked:=false;
ContainsRadioButton.Caption:=crsContains; ContainsRadioButton.Caption:=crsContains;
ContainsRadioButton.Hint:=crsShowOnlyIdentifiersContainingFilterText; ContainsRadioButton.Hint:=crsShowOnlyIdentifiersContainingFilterText;
IDEDialogLayoutList.ApplyLayout(self, 550, 550);
end; end;
procedure TCodyIdentifiersDlg.HideOtherProjectsCheckBoxChange(Sender: TObject); procedure TCodyIdentifiersDlg.HideOtherProjectsCheckBoxChange(Sender: TObject);