From 61d36e3a86932bc76f7f911bcb3279d130df3aa1 Mon Sep 17 00:00:00 2001
From: zueuk <zueuk>
Date: Wed, 22 Mar 2006 16:45:46 +0000
Subject: [PATCH] fixed variation checklist

---
 2.10/Source/Options.pas | 2 +-
 2.10/Source/Regstry.pas | 3 +--
 2 files changed, 2 insertions(+), 3 deletions(-)

diff --git a/2.10/Source/Options.pas b/2.10/Source/Options.pas
index f688182..ee3b67c 100644
--- a/2.10/Source/Options.pas
+++ b/2.10/Source/Options.pas
@@ -356,7 +356,7 @@ end;
 
 procedure TOptionsForm.btnOKClick(Sender: TObject);
 var
-  v: integer;
+  v: int64;
   i: integer;
 begin
 
diff --git a/2.10/Source/Regstry.pas b/2.10/Source/Regstry.pas
index e5d9389..ce15f16 100644
--- a/2.10/Source/Regstry.pas
+++ b/2.10/Source/Regstry.pas
@@ -28,7 +28,7 @@ implementation
 
 uses Windows, SysUtils, Forms, Registry, Global, Dialogs, XFormMan;
 
-procedure UnpackVariations(v: integer);
+procedure UnpackVariations(v: int64);
 { Unpacks the variation options form an integer }
 var
   i: integer;
@@ -37,7 +37,6 @@ begin
     Variations[i] := boolean(v shr i and 1);
 end;
 
-
 procedure ReadSettings;
 var
   Registry: TRegistry;