From 442fe6a73506979404f2d1f7bb2c2cffa4b69054 Mon Sep 17 00:00:00 2001
From: k-m_schindler <k-m_schindler@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Mon, 6 Apr 2009 22:17:39 +0000
Subject: bring the type align to our coding standards

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@1658 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
 src/base/UEditorLyrics.pas     | 12 ++++++------
 src/screens/UScreenEditSub.pas |  2 +-
 2 files changed, 7 insertions(+), 7 deletions(-)

(limited to 'src')

diff --git a/src/base/UEditorLyrics.pas b/src/base/UEditorLyrics.pas
index fe8c3ee5..ef9d8dd6 100644
--- a/src/base/UEditorLyrics.pas
+++ b/src/base/UEditorLyrics.pas
@@ -40,7 +40,7 @@ uses
   UTexture;
 
 type
-  alignment = (left, center, right);
+  TAlignmentType = (atLeft, atCenter, atRight);
 
   TWord = record
     X:         real;
@@ -58,7 +58,7 @@ type
 
   TEditorLyrics = class
     private
-      AlignI:     alignment;
+      AlignI:     TAlignmentType;
       XR:         real;
       YR:         real;
       SizeR:      real;
@@ -69,7 +69,7 @@ type
       procedure SetX(Value: real);
       procedure SetY(Value: real);
       function GetClientX: real;
-      procedure SetAlign(Value: alignment);
+      procedure SetAlign(Value: TAlignmentType);
       function GetSize: real;
       procedure SetSize(Value: real);
       procedure SetSelected(Value: integer);
@@ -96,7 +96,7 @@ type
       property X: real write SetX;
       property Y: real write SetY;
       property ClientX: real read GetClientX;
-      property Align: alignment write SetAlign;
+      property Align: TAlignmentType write SetAlign;
       property Size: real read GetSize write SetSize;
       property Selected: integer read SelectedI write SetSelected;
       property FontStyle: integer write SetFontStyle;
@@ -137,7 +137,7 @@ begin
   Result := Word[0].X;
 end;
 
-procedure TEditorLyrics.SetAlign(Value: alignment);
+procedure TEditorLyrics.SetAlign(Value: TAlignmentType);
 begin
   AlignI := Value;
 end;
@@ -229,7 +229,7 @@ var
   WordIndex:  integer;
   TotalWidth: real;
 begin
-  if AlignI = center then
+  if AlignI = atCenter then
   begin
     TotalWidth := 0;
     for WordIndex := 0 to High(Word) do
diff --git a/src/screens/UScreenEditSub.pas b/src/screens/UScreenEditSub.pas
index bdf85028..8d4d7f28 100644
--- a/src/screens/UScreenEditSub.pas
+++ b/src/screens/UScreenEditSub.pas
@@ -1282,7 +1282,7 @@ begin
     Lyric.Clear;
     Lyric.X := 400;
     Lyric.Y := 500;
-    Lyric.Align := center;
+    Lyric.Align := atCenter;
     Lyric.Size := 42;
     Lyric.ColR := 0;
     Lyric.ColG := 0;
-- 
cgit v1.2.3