TSettings.DetectTools() now detects all Delphi version from XE3 to 10.3

JAM-Software · Sep 21, 2017 · 85d48ed · 85d48ed
1 parent 25a4743
commit 85d48ed
Showing 1 changed file with 2 additions and 5 deletions.
diff --git a/Designer/Classes/Settings.pas b/Designer/Classes/Settings.pas
@@ -136,12 +136,9 @@ procedure TSettings.DetectTools();
     end;
 
     Reg.RootKey := HKEY_CURRENT_USER;
-    for BdsVersion := 10 downto 7 do
+    for BdsVersion := 20 downto 10 do
     begin
-      if (BdsVersion = 7) then
-        BdsKey := 'Software\CodeGear\BDS\7.0'
-      else
-        BdsKey := 'Software\Embarcadero\BDS\' + IntToStr(BdsVersion) + '.0';
+      BdsKey := 'Software\Embarcadero\BDS\' + IntToStr(BdsVersion) + '.0';
       if (Reg.OpenKeyReadOnly(BdsKey)) then
       begin
         BdsPath := Reg.ReadString('RootDir');