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

VariationOptions fixed in registry

Browse Source
This commit is contained in:
zueuk 2006-03-26 02:21:53 +00:00
parent a26afee918
commit d0c390ff7f
1 changed files with 16 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
2.10/Source/Regstry.pas
View File

@ -274,16 +274,27 @@ begin
begin begin
SymmetryNVars := 12; SymmetryNVars := 12;
end; end;
// --- tmp fix for pre-d4 problem ---
if Registry.ValueExists('VariationOptions') then
if Registry.GetDataType('VariationOptions') <> rdInteger then
Registry.WriteInteger('VariationOptions', 262143);
// --- tmp fix for pre-d4 problem ---
if Registry.ValueExists('VariationOptions') then if Registry.ValueExists('VariationOptions') then
begin begin
Registry.ReadBinaryData('VariationOptions', VariationOptions, 8); VariationOptions := Registry.ReadInteger('VariationOptions');
// Delphi_Suxx := Registry.ReadString('VariationOptions');
// VariationOptions := StrToInt64(Delphi_Suxx);
end end
else else
begin begin
VariationOptions := 262143; VariationOptions := 262143;
end; end;
if Registry.ValueExists('VariationOptions2') then
begin
VariationOptions := VariationOptions or (int64(Registry.ReadInteger('VariationOptions2')) shl 32);
end;
UnpackVariations(VariationOptions); UnpackVariations(VariationOptions);
if Registry.ValueExists('MinNodes') then if Registry.ValueExists('MinNodes') then
@ -342,13 +353,6 @@ begin
begin begin
MaxSat := 100; MaxSat := 100;
end; end;
{
if Registry.ValueExists('FixedReference') then
begin
FixedReference := Registry.ReadBool('FixedReference');
end
else FixedReference := False;
}
if Registry.ValueExists('ReferenceMode') then if Registry.ValueExists('ReferenceMode') then
ReferenceMode := Registry.ReadInteger('ReferenceMode') ReferenceMode := Registry.ReadInteger('ReferenceMode')
else ReferenceMode := 0; else ReferenceMode := 0;
@ -941,7 +945,8 @@ begin
Registry.WriteInteger('SymmetryType', SymmetryType); Registry.WriteInteger('SymmetryType', SymmetryType);
Registry.WriteInteger('SymmetryOrder', SymmetryOrder); Registry.WriteInteger('SymmetryOrder', SymmetryOrder);
Registry.WriteInteger('SymmetryNVars', SymmetryNVars); Registry.WriteInteger('SymmetryNVars', SymmetryNVars);
Registry.WriteBinaryData('VariationOptions', VariationOptions, 8); Registry.WriteInteger('VariationOptions', VariationOptions);
Registry.WriteInteger('VariationOptions2', VariationOptions shr 32);
Registry.WriteInteger('ReferenceMode', ReferenceMode); Registry.WriteInteger('ReferenceMode', ReferenceMode);
Registry.WriteInteger('RotationMode', MainForm_RotationMode); Registry.WriteInteger('RotationMode', MainForm_RotationMode);
Registry.WriteInteger('MinNodes', MinNodes); Registry.WriteInteger('MinNodes', MinNodes);