diff options
| author | k-m_schindler <k-m_schindler@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2009-04-06 22:17:39 +0000 |
|---|---|---|
| committer | k-m_schindler <k-m_schindler@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2009-04-06 22:17:39 +0000 |
| commit | 442fe6a73506979404f2d1f7bb2c2cffa4b69054 (patch) | |
| tree | 81b36d8d68757bc5b972360728a6810b86013f67 | |
| parent | e357b3bc3929bb38ed0184ced57ed8f861123dfd (diff) | |
| download | usdx-442fe6a73506979404f2d1f7bb2c2cffa4b69054.tar.gz usdx-442fe6a73506979404f2d1f7bb2c2cffa4b69054.tar.xz usdx-442fe6a73506979404f2d1f7bb2c2cffa4b69054.zip | |
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
| -rw-r--r-- | src/base/UEditorLyrics.pas | 12 | ||||
| -rw-r--r-- | src/screens/UScreenEditSub.pas | 2 |
2 files changed, 7 insertions, 7 deletions
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; |