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

Updated to current version plus some localization problems.

Browse Source
This commit is contained in:
utak3r 2006-09-03 15:26:40 +00:00
parent 92ae517707
commit c768ad8195
2 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
2.10/ScreenSaver/ScrConfig.pas
View File

@ -58,7 +58,7 @@ begin
Registry := TRegistry.Create; Registry := TRegistry.Create;
try try
Registry.RootKey := HKEY_CURRENT_USER; 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 if Registry.ValueExists('SaveImage') then begin
chkSave.Checked := Registry.ReadBool('SaveImage'); chkSave.Checked := Registry.ReadBool('SaveImage');
end else begin end else begin
@ -93,7 +93,7 @@ begin
FloatFormatSettings FloatFormatSettings
); );
end else begin end else begin
edtFiltersize.Text := '0.1'; edtFiltersize.Text := FloatToStr(0.1);
end; end;
if Registry.ValueExists('Density') then begin if Registry.ValueExists('Density') then begin
edtDensity.Text := FloatToStrF(Registry.ReadFloat('Density'), edtDensity.Text := FloatToStrF(Registry.ReadFloat('Density'),
@ -110,7 +110,7 @@ begin
chkShowRndInfo.Checked := True; chkShowRndInfo.Checked := True;
rgQuality.itemindex := 1; rgQuality.itemindex := 1;
edtOversample.Text := '1'; edtOversample.Text := '1';
edtFiltersize.Text := '0.1'; edtFiltersize.Text := FloatToStr(0.1);
edtDensity.Text := '100'; edtDensity.Text := '100';
end; end;
finally finally
@ -137,7 +137,7 @@ begin
locale := GetSystemDefaultLCID; locale := GetSystemDefaultLCID;
GetLocaleFormatSettings(locale, FloatFormatSettings); GetLocaleFormatSettings(locale, FloatFormatSettings);
Registry.RootKey := HKEY_CURRENT_USER; 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('SaveImage', chkSave.Checked);
Registry.WriteBool('ShowOtherImages', chkShowOtherImages.Checked); Registry.WriteBool('ShowOtherImages', chkShowOtherImages.Checked);
Registry.WriteBool('ShowRenderInfo', chkShowRndInfo.Checked); Registry.WriteBool('ShowRenderInfo', chkShowRndInfo.Checked);
@ -169,7 +169,7 @@ begin
try try
StrToFloat(edtFiltersize.Text); StrToFloat(edtFiltersize.Text);
except except
edtFiltersize.Text := '0.1'; edtFiltersize.Text := FloatToStr(0.1);
end; end;
SetFilterPixels SetFilterPixels

4
2.10/ScreenSaver/ScrMain.pas
View File

@ -298,7 +298,7 @@ begin
if prog > 0 then if prog > 0 then
Remainder := Min(Remainder, Elapsed * (power(1/prog, 1.2) - 1)); 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 - Trunc(Remainder * 24)) * 60), Trunc((Remainder * 24 - Trunc(Remainder * 24)) * 60),
Trunc((Remainder * 24 * 60 - Trunc(Remainder * 24 * 60)) * 60), Trunc((Remainder * 24 * 60 - Trunc(Remainder * 24 * 60)) * 60),
@ -347,7 +347,7 @@ begin
Registry := TRegistry.Create; Registry := TRegistry.Create;
try try
Registry.RootKey := HKEY_CURRENT_USER; 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 if Registry.ValueExists('SaveImage') then begin
bSave := Registry.ReadBool('SaveImage'); bSave := Registry.ReadBool('SaveImage');
end else begin end else begin