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

IDE: fixed TSourceNotebook.ReloadHighlighters using wrong PageIndex

Browse Source 
git-svn-id: trunk@22172 -
This commit is contained in:
mattias 2009-10-14 12:37:57 +00:00
parent 39fd8546c7
commit 5c3bf6fbea
2 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
ide/project.pp
View File

@ -3102,6 +3102,7 @@ end;
function TProject.UnitWithEditorIndex(Index:integer):TUnitInfo;
begin
if Index<0 then exit(nil);
Result:=fFirst[uilWithEditorIndex];
while (Result<>nil) and (Result.EditorIndex<>Index) do begin
Result:=Result.fNext[uilWithEditorIndex];

6
ide/sourceeditor.pp
View File

@ -672,7 +672,7 @@ type
procedure ShowFPDocEditor;
procedure UpdateFPDocEditor;
property Editors[Index:integer]:TSourceEditor read GetEditors;
property Editors[Index:integer]:TSourceEditor read GetEditors; // !!! not ordered for PageIndex
function EditorCount:integer;
function Count: integer; override;
function Empty: boolean;
@ -5394,7 +5394,7 @@ var
begin
try
TheFileList:= TStringList.Create;
for i:= 0 to self.EditorCount -1 do
for i:= 0 to EditorCount -1 do
begin
//only if file exists on disk
if FilenameIsAbsolute(Editors[i].FileName) and
@ -6622,7 +6622,7 @@ var
begin
for i := 0 to EditorCount-1 do begin
ASrcEdit:=Editors[i];
AnUnitInfo:=Project1.UnitWithEditorIndex(i);
AnUnitInfo:=Project1.UnitWithEditorIndex(ASrcEdit.PageIndex);
if AnUnitInfo<>nil then
ASrcEdit.SyntaxHighlighterType:=AnUnitInfo.SyntaxHighlighter;
end;