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

ide: use new logic to select frames

Browse Source 
git-svn-id: trunk@15109 -
This commit is contained in:
paul 2008-05-13 01:48:06 +00:00
parent 2ab9ba5790
commit 51461c2471
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ide/main.pp
View File

@ -98,7 +98,7 @@ uses
W32VersionInfo, ImExportCompilerOpts,
// projects
Project, ProjectDefs, NewProjectDlg, ProjectOpts,
PublishProjectDlg, ProjectInspector,
PublishProjectDlg, ProjectInspector, PackageDefs,
// help manager
IDEContextHelpEdit, HelpManager,
// designer
@ -7525,7 +7525,7 @@ begin
if Project1.Units[i].ComponentName <> '' then
begin
if (ItemType = piComponent) or
((ItemType = piFrame) and (Project1.Units[i].Component is TFrame)) then
((ItemType = piFrame) and (Project1.Units[i].ResourceBaseClass = pfcbcFrame)) then
ItemList.AddObject(Project1.Units[i].UnitName,
TViewUnitsEntry.Create(Project1.Units[i].ComponentName, i, Project1.Units[i] = ActiveUnitInfo));
end;