Update of /cvsroot/apophysis/2.10/ScreenSaver
In directory sc8-pr-cvs11.sourceforge.net:/tmp/cvs-serv1107
Modified Files:
ScrConfig.pas ScrMain.pas
Log Message:
Updated to current version plus some localization problems.
Index: ScrConfig.pas
===================================================================
RCS file: /cvsroot/apophysis/2.10/ScreenSaver/ScrConfig.pas,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** ScrConfig.pas 9 Oct 2005 20:56:13 -0000 1.2
--- ScrConfig.pas 3 Sep 2006 15:26:40 -0000 1.3
***************
*** 59,63 ****
try
Registry.RootKey := HKEY_CURRENT_USER;
! if Registry.OpenKey('\Software\BobsFreubels\FlameSS', False) then begin
if Registry.ValueExists('SaveImage') then begin
chkSave.Checked := Registry.ReadBool('SaveImage');
--- 59,63 ----
try
Registry.RootKey := HKEY_CURRENT_USER;
! if Registry.OpenKey('\Software\Apophysis 2.0\ScreenSaver', False) then begin
if Registry.ValueExists('SaveImage') then begin
chkSave.Checked := Registry.ReadBool('SaveImage');
***************
*** 94,98 ****
);
end else begin
! edtFiltersize.Text := '0.1';
end;
if Registry.ValueExists('Density') then begin
--- 94,98 ----
);
end else begin
! edtFiltersize.Text := FloatToStr(0.1);
end;
if Registry.ValueExists('Density') then begin
***************
*** 111,115 ****
rgQuality.itemindex := 1;
edtOversample.Text := '1';
! edtFiltersize.Text := '0.1';
edtDensity.Text := '100';
end;
--- 111,115 ----
rgQuality.itemindex := 1;
edtOversample.Text := '1';
! edtFiltersize.Text := FloatToStr(0.1);
edtDensity.Text := '100';
end;
***************
*** 138,142 ****
GetLocaleFormatSettings(locale, FloatFormatSettings);
Registry.RootKey := HKEY_CURRENT_USER;
! if Registry.OpenKey('\Software\BobsFreubels\FlameSS', True) then begin
Registry.WriteBool('SaveImage', chkSave.Checked);
Registry.WriteBool('ShowOtherImages', chkShowOtherImages.Checked);
--- 138,142 ----
GetLocaleFormatSettings(locale, FloatFormatSettings);
Registry.RootKey := HKEY_CURRENT_USER;
! if Registry.OpenKey('\Software\Apophysis 2.0\ScreenSaver', True) then begin
Registry.WriteBool('SaveImage', chkSave.Checked);
Registry.WriteBool('ShowOtherImages', chkShowOtherImages.Checked);
***************
*** 170,174 ****
StrToFloat(edtFiltersize.Text);
except
! edtFiltersize.Text := '0.1';
end;
--- 170,174 ----
StrToFloat(edtFiltersize.Text);
except
! edtFiltersize.Text := FloatToStr(0.1);
end;
Index: ScrMain.pas
===================================================================
RCS file: /cvsroot/apophysis/2.10/ScreenSaver/ScrMain.pas,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** ScrMain.pas 9 Oct 2005 20:56:13 -0000 1.2
--- ScrMain.pas 3 Sep 2006 15:26:40 -0000 1.3
***************
*** 299,303 ****
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',
[Trunc(Remainder * 24),
Trunc((Remainder * 24 - Trunc(Remainder * 24)) * 60),
--- 299,303 ----
Remainder := Min(Remainder, Elapsed * (power(1/prog, 1.2) - 1));
! 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),
***************
*** 348,352 ****
try
Registry.RootKey := HKEY_CURRENT_USER;
! if Registry.OpenKey('\Software\BobsFreubels\FlameSS', False) then begin
if Registry.ValueExists('SaveImage') then begin
bSave := Registry.ReadBool('SaveImage');
--- 348,352 ----
try
Registry.RootKey := HKEY_CURRENT_USER;
! if Registry.OpenKey('\Software\Apophysis 2.0\ScreenSaver', False) then begin
if Registry.ValueExists('SaveImage') then begin
bSave := Registry.ReadBool('SaveImage');
|