paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-25 01:49:09 +02:00
Code Issues Packages Projects Releases Wiki Activity

* second patch by Evgeniy Shtrenyov for #36737 to improve backward compatibility

Browse Source 
git-svn-id: trunk@44255 -
This commit is contained in:
florian 2020-03-02 21:06:18 +00:00
parent f42b0bf6f5
commit 6f825baa6f
1 changed files with 14 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
packages/ide/fpini.pas
View File

@ -117,6 +117,7 @@ const
iePrimaryFile = 'PrimaryFile'; iePrimaryFile = 'PrimaryFile';
ieCompileMode = 'CompileMode'; ieCompileMode = 'CompileMode';
iePalette = 'Palette'; iePalette = 'Palette';
ieHelpFiles = 'Files';
ieHelpFile = 'File'; ieHelpFile = 'File';
ieDefaultTabSize = 'DefaultTabSize'; ieDefaultTabSize = 'DefaultTabSize';
ieDefaultIndentSize = 'DefaultIndentSize'; ieDefaultIndentSize = 'DefaultIndentSize';
@ -456,6 +457,15 @@ begin
SwitchesMode:=ts; SwitchesMode:=ts;
end; end;
{ Help } { Help }
{ Reading single string with help-file names }
S:=INIFile^.GetEntry(secHelp,ieHelpFiles,'');
repeat
P:=Pos(';',S); if P=0 then P:=length(S)+1;
PS:=copy(S,1,P-1);
if PS<>'' then HelpFiles^.Insert(NewStr(PS));
Delete(S,1,P);
until S='';
{ Reading separate strings with help-file names }
I:=1; I:=1;
repeat repeat
S:=INIFile^.GetEntry(secHelp,ieHelpFile + IntToStr(I),''); S:=INIFile^.GetEntry(secHelp,ieHelpFile + IntToStr(I),'');
@ -672,7 +682,10 @@ begin
{ Compile } { Compile }
INIFile^.SetEntry(secCompile,iePrimaryFile,PrimaryFile); INIFile^.SetEntry(secCompile,iePrimaryFile,PrimaryFile);
INIFile^.SetEntry(secCompile,ieCompileMode,SwitchesModeStr[SwitchesMode]); INIFile^.SetEntry(secCompile,ieCompileMode,SwitchesModeStr[SwitchesMode]);
{ Help } { Deleting single string with help-files list }
INIFile^.DeleteEntry(secHelp, ieHelpFiles);
{ Saving help-files as separate strings }
{ Will it produce compatibility problems? }
HelpFileCount:=HelpFiles^.Count; HelpFileCount:=HelpFiles^.Count;
for I := 1 to HelpFileCount do for I := 1 to HelpFileCount do
begin begin