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

IDE: lpi: use as default: JumpHistory/Line,Column,TopLine=1

Browse Source 
git-svn-id: trunk@45517 -
This commit is contained in:
mattias 2014-06-15 11:47:40 +00:00
parent f834665ea1
commit ff5cd180b1
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
ide/projectdefs.pas
View File

@ -543,9 +543,9 @@ procedure TProjectJumpHistoryPosition.LoadFromXMLConfig(
XMLConfig: TXMLConfig; const Path: string);
var AFilename: string;
begin
FCaretXY.Y:=XMLConfig.GetValue(Path+'Caret/Line',0);
FCaretXY.X:=XMLConfig.GetValue(Path+'Caret/Column',0);
FTopLine:=XMLConfig.GetValue(Path+'Caret/TopLine',0);
FCaretXY.Y:=XMLConfig.GetValue(Path+'Caret/Line',1);
FCaretXY.X:=XMLConfig.GetValue(Path+'Caret/Column',1);
FTopLine:=XMLConfig.GetValue(Path+'Caret/TopLine',1);
AFilename:=XMLConfig.GetValue(Path+'Filename/Value','');
if Assigned(fOnLoadSaveFilename) then
fOnLoadSaveFilename(AFilename,true);
@ -560,9 +560,9 @@ begin
if Assigned(fOnLoadSaveFilename) then
fOnLoadSaveFilename(AFilename,false);
XMLConfig.SetValue(Path+'Filename/Value',AFilename);
XMLConfig.SetValue(Path+'Caret/Line',FCaretXY.Y);
XMLConfig.SetValue(Path+'Caret/Column',FCaretXY.X);
XMLConfig.SetValue(Path+'Caret/TopLine',FTopLine);
XMLConfig.SetDeleteValue(Path+'Caret/Line',FCaretXY.Y,1);
XMLConfig.SetDeleteValue(Path+'Caret/Column',FCaretXY.X,1);
XMLConfig.SetDeleteValue(Path+'Caret/TopLine',FTopLine,1);
end;
{ TProjectJumpHistory }