paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-12 11:56:45 +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;
begin
Result := mrOK;
fCurOrigLine := 0;
fRootOptGroup.DeselectAll;
fDefines.Clear;
fInvalidOptions.Clear;
@ -1206,7 +1207,6 @@ begin
// Separate options that are on one line.
for i := 0 to aStrings.Count-1 do
begin
fCurOrigLine := i;
s := Trim(aStrings[i]);
if s = '' then Continue;
sl.Clear;
@ -1222,6 +1222,7 @@ begin
else
if not fRootOptGroup.SelectOption(s) then
fInvalidOptions.AddObject(s, TObject(Pointer(i)));
Inc(fCurOrigLine);
end;
end;
finally