mirror-github-bspeice/apophysis
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fixed variation checklist

Browse Source
This commit is contained in:
zueuk 2006-03-22 16:45:46 +00:00
parent f5adf098b3
commit 61d36e3a86
2 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
2.10/Source/Options.pas
View File

@ -356,7 +356,7 @@ end;
procedure TOptionsForm.btnOKClick(Sender: TObject); procedure TOptionsForm.btnOKClick(Sender: TObject);
var var
v: integer; v: int64;
i: integer; i: integer;
begin begin

3
2.10/Source/Regstry.pas
View File

@ -28,7 +28,7 @@ implementation
uses Windows, SysUtils, Forms, Registry, Global, Dialogs, XFormMan; uses Windows, SysUtils, Forms, Registry, Global, Dialogs, XFormMan;
procedure UnpackVariations(v: integer); procedure UnpackVariations(v: int64);
{ Unpacks the variation options form an integer } { Unpacks the variation options form an integer }
var var
i: integer; i: integer;
@ -37,7 +37,6 @@ begin
Variations[i] := boolean(v shr i and 1); Variations[i] := boolean(v shr i and 1);
end; end;
procedure ReadSettings; procedure ReadSettings;
var var
Registry: TRegistry; Registry: TRegistry;