aboutsummaryrefslogtreecommitdiffstats
path: root/Game/Code/Classes/UThemes.pas
diff options
context:
space:
mode:
authorjaybinks <jaybinks@b956fd51-792f-4845-bead-9b4dfca2ff2c>2008-03-04 11:16:38 +0000
committerjaybinks <jaybinks@b956fd51-792f-4845-bead-9b4dfca2ff2c>2008-03-04 11:16:38 +0000
commit9a36ddf60248b9fabe61d21f7237c5cd187c4c7a (patch)
tree5cfc1e8e8bf148f69f3d226d035f10cc38e25fc1 /Game/Code/Classes/UThemes.pas
parent37cc5e26505c441d3de151fbe1a70f7d01f085e0 (diff)
downloadusdx-9a36ddf60248b9fabe61d21f7237c5cd187c4c7a.tar.gz
usdx-9a36ddf60248b9fabe61d21f7237c5cd187c4c7a.tar.xz
usdx-9a36ddf60248b9fabe61d21f7237c5cd187c4c7a.zip
removed overuse of DecimalSeperator
and re-implemented changes from changset#905 git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@906 b956fd51-792f-4845-bead-9b4dfca2ff2c
Diffstat (limited to '')
-rw-r--r--Game/Code/Classes/UThemes.pas30
1 files changed, 0 insertions, 30 deletions
diff --git a/Game/Code/Classes/UThemes.pas b/Game/Code/Classes/UThemes.pas
index dc56020d..f47fbc0f 100644
--- a/Game/Code/Classes/UThemes.pas
+++ b/Game/Code/Classes/UThemes.pas
@@ -1448,8 +1448,6 @@ procedure TTheme.ThemeLoadText(var ThemeText: TThemeText; Name: string);
var
C: integer;
begin
- DecimalSeparator := '.';
-
ThemeText.X := ThemeIni.ReadInteger(Name, 'X', 0);
ThemeText.Y := ThemeIni.ReadInteger(Name, 'Y', 0);
ThemeText.W := ThemeIni.ReadInteger(Name, 'W', 0);
@@ -1471,8 +1469,6 @@ begin
ThemeText.ColG := Color[C].RGB.G;
ThemeText.ColB := Color[C].RGB.B;
end;
-
- DecimalSeparator := ',';
end;
procedure TTheme.ThemeLoadTexts(var ThemeText: AThemeText; Name: string);
@@ -1491,8 +1487,6 @@ procedure TTheme.ThemeLoadStatic(var ThemeStatic: TThemeStatic; Name: string);
var
C: integer;
begin
- DecimalSeparator := '.';
-
ThemeStatic.Tex := ThemeIni.ReadString(Name, 'Tex', '');
ThemeStatic.X := ThemeIni.ReadInteger(Name, 'X', 0);
@@ -1519,8 +1513,6 @@ begin
//Reflection Mod
ThemeStatic.Reflection := (ThemeIni.ReadInteger(Name, 'Reflection', 0) = 1);
ThemeStatic.ReflectionSpacing := ThemeIni.ReadFloat(Name, 'ReflectionSpacing', 15);
-
- DecimalSeparator := ',';
end;
procedure TTheme.ThemeLoadStatics(var ThemeStatic: AThemeStatic; Name: string);
@@ -1575,7 +1567,6 @@ begin
ThemeButton.Visible := False;
exit;
end;
- DecimalSeparator := '.';
ThemeButton.Tex := ThemeIni.ReadString(Name, 'Tex', '');
ThemeButton.X := ThemeIni.ReadInteger (Name, 'X', 0);
ThemeButton.Y := ThemeIni.ReadInteger (Name, 'Y', 0);
@@ -1653,16 +1644,12 @@ begin
SetLength(ThemeButton.Text, TLen);
for T := 1 to TLen do
ThemeLoadText(ThemeButton.Text[T-1], Name + 'Text' + IntToStr(T));
-
- DecimalSeparator := ',';
end;
procedure TTheme.ThemeLoadSelect(var ThemeSelect: TThemeSelect; Name: string);
var
C: integer;
begin
- DecimalSeparator := '.';
-
//{$IFDEF TRANSLATE}
ThemeSelect.Text := Language.Translate(ThemeIni.ReadString(Name, 'Text', ''));
//{$ELSE}{
@@ -1698,17 +1685,12 @@ begin
ThemeSelect.STInt := ThemeIni.ReadFloat(Name, 'STInt', 1);
LoadColor(ThemeSelect.STDColR, ThemeSelect.STDColG, ThemeSelect.STDColB, ThemeIni.ReadString(Name, 'STDColor', ''));
ThemeSelect.STDInt := ThemeIni.ReadFloat(Name, 'STDInt', 1);
-
-
- DecimalSeparator := ',';
end;
procedure TTheme.ThemeLoadSelectSlide(var ThemeSelectS: TThemeSelectSlide; Name: string);
var
C: integer;
begin
- DecimalSeparator := '.';
-
//{{$IFDEF TRANSLATE}
ThemeSelectS.Text := Language.Translate(ThemeIni.ReadString(Name, 'Text', ''));
//{{$ELSE}{
@@ -1750,9 +1732,6 @@ begin
ThemeSelectS.STInt := ThemeIni.ReadFloat(Name, 'STInt', 1);
LoadColor(ThemeSelectS.STDColR, ThemeSelectS.STDColG, ThemeSelectS.STDColB, ThemeIni.ReadString(Name, 'STDColor', ''));
ThemeSelectS.STDInt := ThemeIni.ReadFloat(Name, 'STDInt', 1);
-
-
- DecimalSeparator := ',';
end;
procedure TTheme.LoadColors;
@@ -2119,7 +2098,6 @@ end;
procedure TTheme.ThemeSaveStatic(ThemeStatic: TThemeStatic; Name: string);
begin
- DecimalSeparator := '.';
ThemeIni.WriteInteger(Name, 'X', ThemeStatic.X);
ThemeIni.WriteInteger(Name, 'Y', ThemeStatic.Y);
ThemeIni.WriteInteger(Name, 'W', ThemeStatic.W);
@@ -2133,8 +2111,6 @@ begin
ThemeIni.WriteFloat(Name, 'TexY1', ThemeStatic.TexY1);
ThemeIni.WriteFloat(Name, 'TexX2', ThemeStatic.TexX2);
ThemeIni.WriteFloat(Name, 'TexY2', ThemeStatic.TexY2);
-
- DecimalSeparator := ',';
end;
procedure TTheme.ThemeSaveStatics(ThemeStatic: AThemeStatic; Name: string);
@@ -2149,7 +2125,6 @@ end;
procedure TTheme.ThemeSaveText(ThemeText: TThemeText; Name: string);
begin
- DecimalSeparator := '.';
ThemeIni.WriteInteger(Name, 'X', ThemeText.X);
ThemeIni.WriteInteger(Name, 'Y', ThemeText.Y);
@@ -2159,8 +2134,6 @@ begin
ThemeIni.WriteString(Name, 'Text', ThemeText.Text);
ThemeIni.WriteString(Name, 'Color', ThemeText.Color);
-
- DecimalSeparator := ',';
end;
procedure TTheme.ThemeSaveTexts(ThemeText: AThemeText; Name: string);
@@ -2177,7 +2150,6 @@ procedure TTheme.ThemeSaveButton(ThemeButton: TThemeButton; Name: string);
var
T: integer;
begin
- DecimalSeparator := '.';
ThemeIni.WriteString(Name, 'Tex', ThemeButton.Tex);
ThemeIni.WriteInteger(Name, 'X', ThemeButton.X);
ThemeIni.WriteInteger(Name, 'Y', ThemeButton.Y);
@@ -2214,8 +2186,6 @@ begin
for T := 0 to High(ThemeButton.Text) do
ThemeSaveText(ThemeButton.Text[T], Name + 'Text' + IntToStr(T+1));
-
- DecimalSeparator := ',';
end;
procedure TTheme.create_theme_objects();