From 66381de71b672590c8d2a66f3ad9ab892eb849e7 Mon Sep 17 00:00:00 2001
From: ronaldhordijk <ronaldhordijk>
Date: Wed, 1 Jun 2005 07:20:37 +0000
Subject: [PATCH] unpacking the selected varants is now done here

---
 2.10/Source/Regstry.pas | 15 ++++++++++++++-
 1 file changed, 14 insertions(+), 1 deletion(-)

diff --git a/2.10/Source/Regstry.pas b/2.10/Source/Regstry.pas
index dda3ec2..e4d7711 100644
--- a/2.10/Source/Regstry.pas
+++ b/2.10/Source/Regstry.pas
@@ -26,7 +26,17 @@ procedure SaveSettings;
 
 implementation
 
-uses Windows, SysUtils, Forms, Registry, Global, Dialogs;
+uses Windows, SysUtils, Forms, Registry, Global, Dialogs, XForm;
+
+procedure UnpackVariations(v: integer);
+{ Unpacks the variation options form an integer }
+var
+  i: integer;
+begin
+  for i := 0 to NVARS - 1 do
+    Variations[i] := boolean(v shr i and 1);
+end;
+
 
 procedure ReadSettings;
 var
@@ -265,6 +275,8 @@ begin
       begin
         VariationOptions := 262143;
       end;
+      UnpackVariations(VariationOptions);
+
       if Registry.ValueExists('MinNodes') then
       begin
         MinNodes := Registry.ReadInteger('MinNodes');
@@ -504,6 +516,7 @@ begin
       SymmetryType := 0;
       SymmetryOrder := 4;
       VariationOptions := 262143;
+      UnpackVariations(VariationOptions);
       MinNodes := 2;
       MaxNodes := 10;
       MinHue := 0;