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

IDE: use unit dialog: save dialog size

Browse Source 
git-svn-id: trunk@50997 -
This commit is contained in:
mattias 2015-12-22 22:27:48 +00:00
parent ec1e003c1a
commit adf79f9381
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
ide/useunitdlg.pas
View File

@ -30,11 +30,11 @@ unit UseUnitDlg;
interface
uses
Classes, SysUtils, Forms, Controls, StdCtrls, ExtCtrls, Buttons,
ButtonPanel, Dialogs, LCLProc, FileProcs, Graphics, LCLType,
SourceEditor, LazIDEIntf, IDEImagesIntf, LazarusIDEStrConsts, ProjectIntf,
Project, CodeCache, CodeToolManager, IdentCompletionTool, CodeTree,
ListFilterEdit, LinkScanner;
Classes, SysUtils, Forms, Controls, StdCtrls, ExtCtrls, Buttons, ButtonPanel,
Dialogs, LCLProc, FileProcs, Graphics, LCLType, SourceEditor, LazIDEIntf,
IDEImagesIntf, LazarusIDEStrConsts, ProjectIntf, IDEWindowIntf, Project,
CodeCache, CodeToolManager, IdentCompletionTool, CodeTree, ListFilterEdit,
LinkScanner;
type
@ -146,6 +146,7 @@ end;
procedure TUseUnitDialog.FormCreate(Sender: TObject);
begin
// Internationalization
IDEDialogLayoutList.ApplyLayout(Self,500,460);
Caption := dlgUseUnitCaption;
AllUnitsCheckBox.Caption := dlgShowAllUnits;
SectionRadioGroup.Caption := dlgInsertSection;
@ -161,6 +162,7 @@ end;
procedure TUseUnitDialog.FormDestroy(Sender: TObject);
begin
IDEDialogLayoutList.SaveLayout(Self);
FOtherUnits.Free;
FProjUnits.Free;
FImplUsedUnits.Free;