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

MG: cleanup

Browse Source 
git-svn-id: trunk@2788 -
This commit is contained in:
lazarus 2002-08-18 08:54:08 +00:00
parent f398731ff1
commit 2e7c15c288
1 changed files with 18 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ide/main.pp
View File

@ -3212,12 +3212,13 @@ begin
Project1.Bookmarks.Clear;
for i:=0 to Project1.UnitCount-1 do begin
AnUnitInfo:=Project1.Units[i];
if AnUnitInfo.Loaded then begin
if (not AnUnitInfo.Loaded) or (AnUnitInfo.EditorIndex<0) then continue;
{$IFDEF IDE_DEBUG}
writeln('TMainIDE.SaveSourceEditorProjectSpecificSettings AnUnitInfo.Filename=',AnUnitInfo.Filename);
{$ENDIF}
ASrcEdit:=SourceNoteBook.FindSourceEditorWithPageIndex(
AnUnitInfo.EditorIndex);
if ASrcEdit=nil then continue;
AnUnitInfo.TopLine:=ASrcEdit.EditorComponent.TopLine;
AnUnitInfo.CursorPos:=ASrcEdit.EditorComponent.CaretXY;
for BookmarkID:=0 to 9 do begin
@ -3230,7 +3231,6 @@ begin
end;
end;
end;
end;
function TMainIDE.DoShowSaveProjectAsDialog: TModalResult;
var
@ -7197,6 +7197,9 @@ end.
{ =============================================================================
$Log$
Revision 1.393 2002/09/20 14:41:34 lazarus
MG: cleanup
Revision 1.392 2002/09/20 11:40:05 lazarus
MG: added Move Page Left/Right for sourcenotebook