File tree 1 file changed +8
-3
lines changed
1 file changed +8
-3
lines changed Original file line number Diff line number Diff line change 3
3
* v. 2.0. If a copy of the MPL was not distributed with this file, You can
4
4
* obtain one at https://mozilla.org/MPL/2.0/
5
5
*
6
- * Copyright (C) 2009-2021 , Peter Johnson (gravatar.com/delphidabbler).
6
+ * Copyright (C) 2009-2024 , Peter Johnson (gravatar.com/delphidabbler).
7
7
*
8
8
* Defines classes that manages display and interaction with a list box that
9
9
* displays compiler results.
@@ -600,13 +600,18 @@ procedure TCompileResultsLBMgr.PopulateListBox;
600
600
'unknown'.
601
601
}
602
602
var
603
- Compiler: ICompiler; // each supported compiler
603
+ Compiler: ICompiler;
604
+ CompilerId: TCompilerID;
604
605
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];
606
610
fLB.Items.AddObject(
607
611
Compiler.GetName,
608
612
TCompilerInfo.Create(Compiler.GetID, crQuery)
609
613
);
614
+ end ;
610
615
end ;
611
616
612
617
procedure TCompileResultsLBMgr.SetCompileResult (const Index: Integer;
You can’t perform that action at this time.
0 commit comments