File tree Expand file tree Collapse file tree 1 file changed +8
-3
lines changed Expand file tree Collapse file tree 1 file changed +8
-3
lines changed Original file line number Diff line number Diff line change 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 }
602602var
603- Compiler: ICompiler; // each supported compiler
603+ Compiler: ICompiler;
604+ CompilerId: TCompilerID;
604605begin
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 ;
610615end ;
611616
612617procedure TCompileResultsLBMgr.SetCompileResult (const Index: Integer;
You can’t perform that action at this time.
0 commit comments