From c768ad819565826a3b5de3a07b8471fa4fe31691 Mon Sep 17 00:00:00 2001
From: utak3r <utak3r>
Date: Sun, 3 Sep 2006 15:26:40 +0000
Subject: [PATCH] Updated to current version plus some localization problems.

---
 2.10/ScreenSaver/ScrConfig.pas | 10 +++++-----
 2.10/ScreenSaver/ScrMain.pas   |  4 ++--
 2 files changed, 7 insertions(+), 7 deletions(-)

diff --git a/2.10/ScreenSaver/ScrConfig.pas b/2.10/ScreenSaver/ScrConfig.pas
index 24af7d2..4055c11 100644
--- a/2.10/ScreenSaver/ScrConfig.pas
+++ b/2.10/ScreenSaver/ScrConfig.pas
@@ -58,7 +58,7 @@ begin
   Registry := TRegistry.Create;
   try
     Registry.RootKey := HKEY_CURRENT_USER;
-    if Registry.OpenKey('\Software\BobsFreubels\FlameSS', False) then begin
+    if Registry.OpenKey('\Software\Apophysis 2.0\ScreenSaver', False) then begin
       if Registry.ValueExists('SaveImage') then begin
         chkSave.Checked := Registry.ReadBool('SaveImage');
       end else begin
@@ -93,7 +93,7 @@ begin
                                           FloatFormatSettings
                                           );
       end else begin
-        edtFiltersize.Text := '0.1';
+        edtFiltersize.Text := FloatToStr(0.1);
       end;
       if Registry.ValueExists('Density') then begin
         edtDensity.Text := FloatToStrF(Registry.ReadFloat('Density'),
@@ -110,7 +110,7 @@ begin
       chkShowRndInfo.Checked := True;
       rgQuality.itemindex := 1;
       edtOversample.Text := '1';
-      edtFiltersize.Text := '0.1';
+      edtFiltersize.Text := FloatToStr(0.1);
       edtDensity.Text := '100';
     end;
   finally
@@ -137,7 +137,7 @@ begin
     locale := GetSystemDefaultLCID;
     GetLocaleFormatSettings(locale, FloatFormatSettings);
     Registry.RootKey := HKEY_CURRENT_USER;
-    if Registry.OpenKey('\Software\BobsFreubels\FlameSS', True) then begin
+    if Registry.OpenKey('\Software\Apophysis 2.0\ScreenSaver', True) then begin
       Registry.WriteBool('SaveImage', chkSave.Checked);
       Registry.WriteBool('ShowOtherImages', chkShowOtherImages.Checked);
       Registry.WriteBool('ShowRenderInfo', chkShowRndInfo.Checked);
@@ -169,7 +169,7 @@ begin
   try
     StrToFloat(edtFiltersize.Text);
   except
-    edtFiltersize.Text := '0.1';
+    edtFiltersize.Text := FloatToStr(0.1);
   end;
 
   SetFilterPixels
diff --git a/2.10/ScreenSaver/ScrMain.pas b/2.10/ScreenSaver/ScrMain.pas
index 805cbee..90b23aa 100644
--- a/2.10/ScreenSaver/ScrMain.pas
+++ b/2.10/ScreenSaver/ScrMain.pas
@@ -298,7 +298,7 @@ begin
     if prog > 0 then
     Remainder := Min(Remainder, Elapsed * (power(1/prog, 1.2) - 1));
 
-    Canvas.TextOut(5, ClientHeight - 20 - Canvas.TextHeight('X'), Format('Remainder %2.2d:%2.2d:%2.2d.%2.2d',
+    Canvas.TextOut(5, ClientHeight - 20 - Canvas.TextHeight('X'), Format('Remaining %2.2d:%2.2d:%2.2d.%2.2d',
                        [Trunc(Remainder * 24),
                          Trunc((Remainder * 24 - Trunc(Remainder * 24)) * 60),
                           Trunc((Remainder * 24 * 60 - Trunc(Remainder * 24 * 60)) * 60),
@@ -347,7 +347,7 @@ begin
   Registry := TRegistry.Create;
   try
     Registry.RootKey := HKEY_CURRENT_USER;
-    if Registry.OpenKey('\Software\BobsFreubels\FlameSS', False) then begin
+    if Registry.OpenKey('\Software\Apophysis 2.0\ScreenSaver', False) then begin
       if Registry.ValueExists('SaveImage') then begin
         bSave := Registry.ReadBool('SaveImage');
       end else begin