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

SourceEditor: Clean-up

Browse Source 
git-svn-id: trunk@24469 -
This commit is contained in:
martin 2010-04-06 14:47:08 +00:00
parent 438dba5486
commit f2ec37b6f5
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ide/sourceeditor.pp
View File

@ -5667,14 +5667,13 @@ begin
Edit := FindSourceEditorWithPageIndex(OldPageIndex);
DestWin.NoteBookInsertPage(NewPageIndex, Edit.PageName);
DestWin.PageIndex := NewPageIndex;
{$IFNDEF OldAutoSize}
DestWin.NotebookPage[NewPageIndex].ReAlign;
{$ENDIF}
ReleaseEditor(Edit);
Edit.UpdateNoteBook(DestWin, DestWin.NoteBookPage[NewPageIndex]);
DestWin.AcceptEditor(Edit);
{$IfNDef OldAutoSize}
DestWin.NotebookPage[NewPageIndex].ReAlign;
{$EndIf}
NoteBookDeletePage(OldPageIndex);
UpdatePageNames;
@ -8349,7 +8348,7 @@ begin
for i := 0 to Editor.FSharedValues.SharedEditorCount - 1 do
if not AMark.HasSourceEditor(Editor.FSharedValues.SharedEditors[i]) then
AMark.AddSourceEditor(Editor.FSharedValues.SharedEditors[i]);
end;;
end;
if AMark.IsBreakPoint and (Editor.FExecutionMark <> nil) and
(AMark.Line = Editor.FExecutionLine)