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

MG: closing editor now switches to left editor

Browse Source 
git-svn-id: trunk@1688 -
This commit is contained in:
lazarus 2002-05-16 15:51:49 +00:00
parent e21ba6b96e
commit 661e18eb9f
2 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ide/main.pp
View File

@ -3568,7 +3568,7 @@ begin
Project1.RemoveUnit(i); Project1.RemoveUnit(i);
end; end;
writeln('TMainIDE.DoCloseEditorUnit end'); writeln('TMainIDE.DoCloseEditorUnit end');
Result:=mrOk; Result:=mrOk;
end; end;
@ -6372,6 +6372,9 @@ end.
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.298 2002/05/16 15:51:48 lazarus
MG: closing editor now switches to left editor
Revision 1.297 2002/05/16 14:35:19 lazarus Revision 1.297 2002/05/16 14:35:19 lazarus
MG: fixed codetools error jumping MG: fixed codetools error jumping

3
ide/uniteditor.pp
View File

@ -2850,6 +2850,9 @@ writeln('TSourceNotebook.CloseFile A PageIndex=',PageIndex);
if Notebook.Pages.Count>1 then begin if Notebook.Pages.Count>1 then begin
//writeln('TSourceNotebook.CloseFile B PageIndex=',PageIndex); //writeln('TSourceNotebook.CloseFile B PageIndex=',PageIndex);
Notebook.Pages.Delete(PageIndex); Notebook.Pages.Delete(PageIndex);
// switch to left PageIndex
if PageIndex>0 then
Notebook.PageIndex:=PageIndex-1;
//writeln('TSourceNotebook.CloseFile C PageIndex=',PageIndex); //writeln('TSourceNotebook.CloseFile C PageIndex=',PageIndex);
UpdateStatusBar; UpdateStatusBar;
end else begin end else begin