From: <ah...@us...> - 2012-12-11 21:31:39
|
Revision: 13481 http://jvcl.svn.sourceforge.net/jvcl/?rev=13481&view=rev Author: ahuser Date: 2012-12-11 21:31:31 +0000 (Tue, 11 Dec 2012) Log Message: ----------- Sort CompileTargets by version number so that XE3 is below XE and XE2. Modified Paths: -------------- trunk/jvcl/install/JVCLInstall/DelphiData.pas Modified: trunk/jvcl/install/JVCLInstall/DelphiData.pas =================================================================== --- trunk/jvcl/install/JVCLInstall/DelphiData.pas 2012-12-11 15:17:51 UTC (rev 13480) +++ trunk/jvcl/install/JVCLInstall/DelphiData.pas 2012-12-11 21:31:31 UTC (rev 13481) @@ -390,6 +390,11 @@ { TCompileTargetList } +function SortTargetsByVersionNumber(Item1, Item2: Pointer): Integer; +begin + Result := TCompileTarget(Item1).Version - TCompileTarget(Item2).Version; +end; + constructor TCompileTargetList.Create; begin inherited Create; @@ -410,6 +415,7 @@ LoadTargets(KeyCodeGear, 'BDS', CmdOptions.RegistryKeyBDS); // do not localize LoadTargets(KeyEmbarcadero, 'BDS', CmdOptions.RegistryKeyBDS); // do not localize end; + Sort(SortTargetsByVersionNumber); end; function TCompileTargetList.GetItems(Index: Integer): TCompileTarget; This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |