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

MG: reduced output

Browse Source 
git-svn-id: trunk@476 -
This commit is contained in:
lazarus 2001-12-02 13:05:33 +00:00
parent 920c3ed339
commit 5278c54ef8
1 changed files with 3 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
ide/main.pp
View File

@ -2717,9 +2717,7 @@ writeln('[TMainIDE.DoOpenEditorFile] B');
NewPageName:=copy(NewPageName,1,length(NewPageName)-length(Ext));
if NewpageName='' then NewPageName:='file';
end;
writeln('[TMainIDE.DoOpenEditorFile] B2');
SourceNotebook.NewFile(NewPageName,NewUnitInfo.Source);
writeln('[TMainIDE.DoOpenEditorFile] B3');
NewSrcEdit:=SourceNotebook.GetActiveSE;
if not ProjectLoading then
Project.InsertEditorIndex(SourceNotebook.NoteBook.PageIndex)
@ -2737,13 +2735,9 @@ writeln('[TMainIDE.DoOpenEditorFile] B3');
end;
end;
end;
writeln('[TMainIDE.DoOpenEditorFile] B4');
NewUnitInfo.EditorIndex:=SourceNotebook.NoteBook.PageIndex;
writeln('[TMainIDE.DoOpenEditorFile] B5');
NewSrcEdit.SyntaxHighlighterType:=NewUnitInfo.SyntaxHighlighter;
writeln('[TMainIDE.DoOpenEditorFile] B6');
NewSrcEdit.EditorComponent.CaretXY:=NewUnitInfo.CursorPos;
writeln('[TMainIDE.DoOpenEditorFile] B7');
NewSrcEdit.EditorComponent.TopLine:=NewUnitInfo.TopLine;
NewSrcEdit.EditorComponent.LeftChar:=1;
@ -4957,6 +4951,9 @@ end.
{ =============================================================================
$Log$
Revision 1.162 2001/12/02 13:05:33 lazarus
MG: reduced output
Revision 1.161 2001/12/02 11:03:35 lazarus
MG: added default pascal file extension option