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

IDE: saving override disk encodings

Browse Source 
git-svn-id: trunk@23593 -
This commit is contained in:
mattias 2010-01-29 09:54:08 +00:00
parent f5da4dfcbc
commit 531317a506
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ide/inputhistory.pas
View File

@ -443,6 +443,9 @@ begin
FLastConvertDelphiProject:=XMLConfig.GetValue(Path+'Conversion/Delphi/Project','');
FLastConvertDelphiPackage:=XMLConfig.GetValue(Path+'Conversion/Delphi/Package','');
FLastConvertDelphiUnit:=XMLConfig.GetValue(Path+'Conversion/Delphi/Unit','');
// encodings
LoadStringToStringTree(XMLConfig,fFileEncodings,Path+'FileEncodings/');
end;
procedure TInputHistories.SaveToXMLConfig(XMLConfig: TXMLConfig;
@ -498,6 +501,8 @@ begin
FLastConvertDelphiPackage,'');
XMLConfig.SetDeleteValue(Path+'Conversion/Delphi/Unit',
FLastConvertDelphiUnit,'');
// encodings
SaveStringToStringTree(XMLConfig,fFileEncodings,Path+'FileEncodings/');
end;
procedure TInputHistories.SetLazarusDefaultFilename;