aboutsummaryrefslogtreecommitdiffstats
path: root/Game/Code/Screens
diff options
context:
space:
mode:
authortobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c>2008-07-17 10:33:20 +0000
committertobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c>2008-07-17 10:33:20 +0000
commit943e5130e1b70a9158fe8462eff3123d27135caa (patch)
tree25f8f1e90c6fad7bc79cac336ee628947cc33b1c /Game/Code/Screens
parente0c360d1b6650909d156484bb74462af4484a945 (diff)
downloadusdx-943e5130e1b70a9158fe8462eff3123d27135caa.tar.gz
usdx-943e5130e1b70a9158fe8462eff3123d27135caa.tar.xz
usdx-943e5130e1b70a9158fe8462eff3123d27135caa.zip
Renamed the old ULyrics_bak.pas to UEditorLyrics.pas as it is used in the editor only. This might be replaced by ULyrics.pas later.
git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@1204 b956fd51-792f-4845-bead-9b4dfca2ff2c
Diffstat (limited to 'Game/Code/Screens')
-rw-r--r--Game/Code/Screens/UScreenEditSub.pas21
1 files changed, 12 insertions, 9 deletions
diff --git a/Game/Code/Screens/UScreenEditSub.pas b/Game/Code/Screens/UScreenEditSub.pas
index 3bf57692..564ef42c 100644
--- a/Game/Code/Screens/UScreenEditSub.pas
+++ b/Game/Code/Screens/UScreenEditSub.pas
@@ -20,8 +20,7 @@ uses
ULog,
UTexture,
UMenuText,
- ULyrics_bak,
- ULyrics,
+ UEditorLyrics,
Math,
gl,
{$IFDEF UseMIDIPort}
@@ -67,6 +66,8 @@ type
TextEditMode: boolean;
+ Lyric: TEditorLyrics;
+
procedure NewBeat;
procedure DivideBPM;
procedure MultiplyBPM;
@@ -99,7 +100,13 @@ type
end;
implementation
-uses UGraphic, UDraw, UMain, USkins, ULanguage;
+
+uses
+ UGraphic,
+ UDraw,
+ UMain,
+ USkins,
+ ULanguage;
// Method for input parsing. If False is returned, GetNextWindow
// should be checked to know the next window to load;
@@ -1050,9 +1057,6 @@ procedure TScreenEditSub.CopySentences(Src, Dst, Num: integer);
var
C: integer;
begin
-// Lyric := TLyric.Create;
-
-
// create place for new sentences
SetLength(Lines[0].Line, Lines[0].Number + Num - 1);
@@ -1138,7 +1142,7 @@ begin
inherited;
Log.LogStatus('Initializing', 'TEditScreen.onShow');
- Lyric := TLyric.Create;
+ Lyric := TEditorLyrics.Create;
ResetSingTemp;
@@ -1187,7 +1191,6 @@ begin
Lyric.ColSR := Skin_FontHighlightR;
Lyric.ColSG := Skin_FontHighlightG;
Lyric.ColSB := Skin_FontHighlightB;
- Lyric.Style := 0;
Lyric.AddLine(0);
Lyric.Selected := 0;
@@ -1306,7 +1309,6 @@ begin
// draw text
Lyric.Draw;
-
end;
procedure TScreenEditSub.onHide;
@@ -1315,6 +1317,7 @@ begin
MidiOut.Close;
MidiOut.Free;
{$ENDIF}
+ Lyric.Free;
//Music.SetVolume(1.0);
end;