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

IDE: Improve the EditorInfo map update.

Browse Source 
git-svn-id: trunk@29626 -
This commit is contained in:
juha 2011-02-21 06:55:51 +00:00
parent 203872b378
commit 89a95ef754
1 changed files with 6 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
ide/project.pp
View File

@ -825,6 +825,8 @@ type
procedure UpdateProjectDirectory;
procedure UpdateSessionFilename;
procedure UpdateSourceDirectories;
procedure EditorInfoAdd(EdInfo: TUnitEditorInfo);
procedure EditorInfoRemove(EdInfo: TUnitEditorInfo);
protected
function GetMainFile: TLazProjectFile; override;
function GetMainFileID: Integer; override;
@ -933,10 +935,6 @@ type
function AllEditorsInfoCount: Integer;
property AllEditorsInfo[Index: Integer]: TUnitEditorInfo read GetAllEditorsInfo;
function EditorInfoWithEditorComponent(AEditor:TSourceEditorInterface): TUnitEditorInfo;
procedure EditorInfoAdd(EdInfo: TUnitEditorInfo);
procedure EditorInfoRemove(EdInfo: TUnitEditorInfo);
procedure EditorInfoUpdate(EdInfo: TUnitEditorInfo;
NewSE, OldSE: TSourceEditorInterface);
function SearchFile(const ShortFilename: string;
SearchFlags: TSearchIDEFileFlags): TUnitInfo;
function FindFile(const AFilename: string;
@ -1178,8 +1176,8 @@ end;
procedure TUnitEditorInfo.SetEditorComponent(const AValue: TSourceEditorInterface);
begin
if FEditorComponent = AValue then exit;
fUnitInfo.Project.EditorInfoUpdate(Self, AValue, FEditorComponent);
if AValue = nil then begin
fUnitInfo.Project.FAllEditorsInfoMap.Delete(FEditorComponent);
FEditorComponent := AValue;
UnitInfo.FEditorInfoList.MakeUnUsedEditorInfo(Self);
PageIndex := -1; // calls UnitInfo.UpdatePageIndex
@ -1187,6 +1185,9 @@ begin
end
else begin
PageIndex := -1;
with fUnitInfo.Project do // Map for lookup: Editor -> EditorInfo
if not FAllEditorsInfoMap.HasId(AValue) then
FAllEditorsInfoMap.Add(AValue, Self);
FEditorComponent := AValue;
UnitInfo.FEditorInfoList.MakeUsedEditorInfo(Self);
AValue.UpdateProjectFile; // Set EditorIndex / calls UnitInfo.UpdatePageIndex
@ -5434,17 +5435,6 @@ begin
FAllEditorsInfoMap.Delete(EdInfo.EditorComponent);
end;
procedure TProject.EditorInfoUpdate(EdInfo: TUnitEditorInfo;
NewSE, OldSE: TSourceEditorInterface);
begin
if Assigned(NewSE) then begin
if not FAllEditorsInfoMap.HasId(NewSE) then
FAllEditorsInfoMap.Add(NewSE, EdInfo);
end
else if Assigned(OldSE) then
FAllEditorsInfoMap.Delete(OldSE);
end;
function TProject.SearchFile(const ShortFilename: string;
SearchFlags: TSearchIDEFileFlags): TUnitInfo;
var