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

IDE: In All Compiler Options, improve the order of generated options when original data was on the same line.

Browse Source 
git-svn-id: trunk@43860 -
This commit is contained in:
juha 2014-01-31 17:29:08 +00:00
parent b5f6916a84
commit a254f34a26
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
ide/compiler.pp
View File

@ -1198,6 +1198,7 @@ var
sl: TStringList; sl: TStringList;
begin begin
Result := mrOK; Result := mrOK;
fCurOrigLine := 0;
fRootOptGroup.DeselectAll; fRootOptGroup.DeselectAll;
fDefines.Clear; fDefines.Clear;
fInvalidOptions.Clear; fInvalidOptions.Clear;
@ -1206,7 +1207,6 @@ begin
// Separate options that are on one line. // Separate options that are on one line.
for i := 0 to aStrings.Count-1 do for i := 0 to aStrings.Count-1 do
begin begin
fCurOrigLine := i;
s := Trim(aStrings[i]); s := Trim(aStrings[i]);
if s = '' then Continue; if s = '' then Continue;
sl.Clear; sl.Clear;
@ -1222,6 +1222,7 @@ begin
else else
if not fRootOptGroup.SelectOption(s) then if not fRootOptGroup.SelectOption(s) then
fInvalidOptions.AddObject(s, TObject(Pointer(i))); fInvalidOptions.AddObject(s, TObject(Pointer(i)));
Inc(fCurOrigLine);
end; end;
end; end;
finally finally