Skip to content

Commit bbdbdca

Browse files
committed
Reverse order of compilers in Snippets Editor
Order of compilers on the Compile Results tab was reversed. Fixes #135
1 parent a512877 commit bbdbdca

File tree

1 file changed

+8
-3
lines changed

1 file changed

+8
-3
lines changed

Diff for: Src/UCompileResultsLBMgr.pas

+8-3
Original file line numberDiff line numberDiff line change
@@ -3,7 +3,7 @@
33
* v. 2.0. If a copy of the MPL was not distributed with this file, You can
44
* obtain one at https://mozilla.org/MPL/2.0/
55
*
6-
* Copyright (C) 2009-2021, Peter Johnson (gravatar.com/delphidabbler).
6+
* Copyright (C) 2009-2024, Peter Johnson (gravatar.com/delphidabbler).
77
*
88
* Defines classes that manages display and interaction with a list box that
99
* displays compiler results.
@@ -600,13 +600,18 @@ procedure TCompileResultsLBMgr.PopulateListBox;
600600
'unknown'.
601601
}
602602
var
603-
Compiler: ICompiler; // each supported compiler
603+
Compiler: ICompiler;
604+
CompilerId: TCompilerID;
604605
begin
605-
for Compiler in fCompilers do
606+
// Populate list box in reverse order of compiler ID
607+
for CompilerId := High(TCompilerID) downto Low(TCompilerID) do
608+
begin
609+
Compiler := fCompilers[CompilerId];
606610
fLB.Items.AddObject(
607611
Compiler.GetName,
608612
TCompilerInfo.Create(Compiler.GetID, crQuery)
609613
);
614+
end;
610615
end;
611616

612617
procedure TCompileResultsLBMgr.SetCompileResult(const Index: Integer;

0 commit comments

Comments
 (0)