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

IDE: try to make Component List size and location persistent

Browse Source 
git-svn-id: trunk@35008 -
This commit is contained in:
juha 2012-01-29 08:43:42 +00:00
parent ab26698c0c
commit e0ffd40eed
2 changed files with 11 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ide/ideoptiondefs.pas
View File

@ -87,7 +87,8 @@ type
nmiwTabOrderEditor,
nmiwCodeBrowser,
nmiwIssueBrowser,
nmiwJumpHistory
nmiwJumpHistory,
nmiwComponentList
);
const
@ -121,7 +122,8 @@ const
'TabOrderEditor',
'CodeBrowser',
'IssueBrowser',
'JumpHistory'
'JumpHistory',
'ComponentList'
);
function CreateNiceWindowPosition(Width, Height: integer): TRect;

14
ide/main.pp
View File

@ -2297,7 +2297,7 @@ begin
nil,@CreateIDEWindow,'250','250','','');
IDEWindowCreators.Add(NonModalIDEWindowNames[nmiwJumpHistory],
nil,@CreateIDEWindow,'250','250','','');
IDEWindowCreators.Add(ComponentListFormName,
IDEWindowCreators.Add(NonModalIDEWindowNames[nmiwComponentList],
nil,@CreateIDEWindow,'250','250','','');
end;
@ -9930,8 +9930,7 @@ begin
IDEWindowCreators.ShowForm(CodeBrowserView,true);
end;
procedure TMainIDE.DoShowRestrictionBrowser(Show: boolean;
const RestrictedName: String);
procedure TMainIDE.DoShowRestrictionBrowser(Show: boolean; const RestrictedName: String);
begin
if RestrictionBrowserView = nil then
RestrictionBrowserView := TRestrictionBrowserView.Create(OwningComponent);
@ -9943,13 +9942,14 @@ end;
procedure TMainIDE.DoShowComponentList(Show: boolean);
begin
if not Assigned(ComponentListForm) then
if ComponentListForm = nil then
begin
ComponentListForm := TComponentListForm.Create(OwningComponent);
ComponentListForm.Name:=ComponentListFormName;
ComponentListForm.Name:=NonModalIDEWindowNames[nmiwComponentList];
end;
if Show then
ComponentListForm.Show;
IDEWindowCreators.ShowForm(ComponentListForm,true);
// ComponentListForm.Show;
end;
procedure TMainIDE.DoShowInspector(Show: boolean);
@ -10028,7 +10028,7 @@ begin
DoViewJumpHistory(false);
AForm:=JumpHistoryViewWin;
end
else if ItIs(ComponentListFormName) then
else if ItIs(NonModalIDEWindowNames[nmiwComponentList]) then
begin
DoShowComponentList(false);
AForm:=ComponentListForm;