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

IDE: fixed loading history position filenames

Browse Source 
git-svn-id: trunk@15420 -
This commit is contained in:
mattias 2008-06-14 11:29:25 +00:00
parent f1f3dcac16
commit 9e39fbdff8
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ide/projectdefs.pas
View File

@ -635,8 +635,10 @@ begin
NewHistoryIndex:=XMLConfig.GetValue(Path+'JumpHistory/HistoryIndex',-1); NewHistoryIndex:=XMLConfig.GetValue(Path+'JumpHistory/HistoryIndex',-1);
NewPosition:=nil; NewPosition:=nil;
for i:=0 to NewCount-1 do begin for i:=0 to NewCount-1 do begin
if NewPosition=nil then if NewPosition=nil then begin
NewPosition:=TProjectJumpHistoryPosition.Create('',Point(0,0),0); NewPosition:=TProjectJumpHistoryPosition.Create('',Point(0,0),0);
NewPosition.OnLoadSaveFilename:=OnLoadSaveFilename;
end;
NewPosition.LoadFromXMLConfig(XMLConfig, NewPosition.LoadFromXMLConfig(XMLConfig,
Path+'JumpHistory/Position'+IntToStr(i+1)+'/'); Path+'JumpHistory/Position'+IntToStr(i+1)+'/');
if (NewPosition.Filename<>'') and (NewPosition.CaretXY.Y>0) if (NewPosition.Filename<>'') and (NewPosition.CaretXY.Y>0)