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

IDE: open unknown file check result

Browse Source 
git-svn-id: trunk@24406 -
This commit is contained in:
mattias 2010-04-04 17:56:09 +00:00
parent ceef7f4a34
commit 20a40f4a3b
2 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/main.pp
View File

@ -8562,12 +8562,12 @@ begin
// open unknown file
Handled:=false;
Result:=DoOpenUnknownFile(AFilename,Flags,NewUnitInfo,Handled);
if Result<>mrOk then exit;
// the file was previously unknown, use the default EditorInfo
if AEditorInfo <> nil then
NewEditorInfo := AEditorInfo
else
NewEditorInfo := NewUnitInfo.GetClosedOrNewEditorInfo;
if Result<>mrOk then exit;
if Handled then exit;
end;

2
ide/sourceeditor.pp
View File

@ -5665,7 +5665,9 @@ 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]);