aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--us_maker_edition/game/languages/English.ini17
-rw-r--r--us_maker_edition/game/themes/Classic.ini290
-rw-r--r--us_maker_edition/game/themes/Deluxe.ini290
-rw-r--r--us_maker_edition/src/base/UThemes.pas36
-rw-r--r--us_maker_edition/src/menu/UMenu.pas1
-rw-r--r--us_maker_edition/src/screens/UScreenEditSub.pas289
6 files changed, 884 insertions, 39 deletions
diff --git a/us_maker_edition/game/languages/English.ini b/us_maker_edition/game/languages/English.ini
index 5ac41efc..96c49b16 100644
--- a/us_maker_edition/game/languages/English.ini
+++ b/us_maker_edition/game/languages/English.ini
@@ -185,6 +185,23 @@ SING_EDIT_NAVIGATE=navigate
SING_EDIT_SELECT=select
SING_EDIT_EXIT=back
+EDIT_TITLE=Title:
+EDIT_ARTIST=Artist:
+EDIT_MP3=MP3:
+EDIT_BPM=BPM:
+EDIT_GAP=GAP:
+EDIT_COVER=Cover:
+EDIT_BACKGROUND=Background:
+
+EDIT_START=Start:
+EDIT_DURATION=Duration:
+EDIT_TONE=Tone:
+EDIT_LYRIC=Lyric:
+EDIT_VIDEOGAP=Video Gap:
+EDIT_VOLUME_AUDIO=Audio Volume:
+EDIT_VOLUME_MIDI=Midi Volume:
+EDIT_VOLUME_CLICK=Click Volume:
+
SING_LEGEND_SELECT=select
SING_LEGEND_NAVIGATE=navigate
SING_LEGEND_CONTINUE=continue
diff --git a/us_maker_edition/game/themes/Classic.ini b/us_maker_edition/game/themes/Classic.ini
index 8ea3fe83..ec789da7 100644
--- a/us_maker_edition/game/themes/Classic.ini
+++ b/us_maker_edition/game/themes/Classic.ini
@@ -8009,4 +8009,292 @@ IndicatorYOffset = 3
X = 80
W = 640
Y = 535
-H = 41 \ No newline at end of file
+H = 41
+
+[EditSub]
+
+[EditSubTitle]
+X = 30
+Y = 60
+W = 100
+H = 20
+SkipX = 10
+TextSize = 16
+Text = EDIT_TITLE
+Tex = MainBar
+Type = Colorized
+TexSBG = MainBar
+TypeSBG = Colorized
+ShowArrows = 0
+SBGW = 350
+Align = 0
+
+Color = ColorDark
+DColor = ColorLight
+TColor = White
+TDColor = White
+
+SBGColor = ColorDark
+SBGDColor = ColorLight
+STColor = White
+STDColor = GrayDark
+
+[EditSubArtist]
+X = 30
+Y = 81
+W = 100
+H = 20
+SkipX = 10
+TextSize = 16
+Text = EDIT_ARTIST
+Tex = MainBar
+Type = Colorized
+TexSBG = MainBar
+TypeSBG = Colorized
+ShowArrows = 0
+SBGW = 350
+Align = 0
+
+Color = ColorDark
+DColor = ColorLight
+TColor = White
+TDColor = White
+
+SBGColor = ColorDark
+SBGDColor = ColorLight
+STColor = White
+STDColor = GrayDark
+
+[EditSubMP3]
+X = 30
+Y = 102
+W = 100
+H = 20
+SkipX = 10
+TextSize = 16
+Text = EDIT_MP3
+Tex = MainBar
+Type = Colorized
+TexSBG = MainBar
+TypeSBG = Colorized
+ShowArrows = 0
+SBGW = 350
+Align = 0
+
+Color = ColorDark
+DColor = ColorLight
+TColor = White
+TDColor = White
+
+SBGColor = ColorDark
+SBGDColor = ColorLight
+STColor = White
+STDColor = GrayDark
+
+[EditSubCover]
+X = 30
+Y = 123
+W = 100
+H = 20
+SkipX = 10
+TextSize = 16
+Text = EDIT_COVER
+Tex = MainBar
+Type = Colorized
+TexSBG = MainBar
+TypeSBG = Colorized
+ShowArrows = 0
+SBGW = 350
+Align = 0
+
+Color = ColorDark
+DColor = ColorLight
+TColor = White
+TDColor = White
+
+SBGColor = ColorDark
+SBGDColor = ColorLight
+STColor = White
+STDColor = GrayDark
+
+[EditSubBackground]
+X = 30
+Y = 144
+W = 100
+H = 20
+SkipX = 10
+TextSize = 16
+Text = EDIT_BACKGROUND
+Tex = MainBar
+Type = Colorized
+TexSBG = MainBar
+TypeSBG = Colorized
+ShowArrows = 0
+SBGW = 350
+Align = 0
+
+Color = ColorDark
+DColor = ColorLight
+TColor = White
+TDColor = White
+
+SBGColor = ColorDark
+SBGDColor = ColorLight
+STColor = White
+STDColor = GrayDark
+
+[EditSubBPM]
+X = 30
+Y = 165
+W = 100
+H = 20
+SkipX = 10
+TextSize = 16
+Text = EDIT_BPM
+Tex = MainBar
+Type = Colorized
+TexSBG = MainBar
+TypeSBG = Colorized
+ShowArrows = 0
+SBGW = 100
+Align = 0
+
+Color = ColorDark
+DColor = ColorLight
+TColor = White
+TDColor = White
+
+SBGColor = ColorDark
+SBGDColor = ColorLight
+STColor = White
+STDColor = GrayDark
+
+[EditSubGAP]
+X = 30
+Y = 186
+W = 100
+H = 20
+SkipX = 10
+TextSize = 16
+Text = EDIT_GAP
+Tex = MainBar
+Type = Colorized
+TexSBG = MainBar
+TypeSBG = Colorized
+ShowArrows = 0
+SBGW = 100
+Align = 0
+
+Color = ColorDark
+DColor = ColorLight
+TColor = White
+TDColor = White
+
+SBGColor = ColorDark
+SBGDColor = ColorLight
+STColor = White
+STDColor = GrayDark
+
+[EditSubStart]
+X = 30
+Y = 207
+W = 100
+H = 20
+SkipX = 10
+TextSize = 16
+Text = EDIT_START
+Tex = MainBar
+Type = Colorized
+TexSBG = MainBar
+TypeSBG = Colorized
+ShowArrows = 0
+SBGW = 100
+Align = 0
+
+Color = ColorDark
+DColor = ColorLight
+TColor = White
+TDColor = White
+
+SBGColor = ColorDark
+SBGDColor = ColorLight
+STColor = White
+STDColor = GrayDark
+
+[EditSubDuration]
+X = 30
+Y = 228
+W = 100
+H = 20
+SkipX = 10
+TextSize = 16
+Text = EDIT_DURATION
+Tex = MainBar
+Type = Colorized
+TexSBG = MainBar
+TypeSBG = Colorized
+ShowArrows = 0
+SBGW = 100
+Align = 0
+
+Color = ColorDark
+DColor = ColorLight
+TColor = White
+TDColor = White
+
+SBGColor = ColorDark
+SBGDColor = ColorLight
+STColor = White
+STDColor = GrayDark
+
+[EditSubTone]
+X = 30
+Y = 249
+W = 100
+H = 20
+SkipX = 10
+TextSize = 16
+Text = EDIT_TONE
+Tex = MainBar
+Type = Colorized
+TexSBG = MainBar
+TypeSBG = Colorized
+ShowArrows = 0
+SBGW = 100
+Align = 0
+
+Color = ColorDark
+DColor = ColorLight
+TColor = White
+TDColor = White
+
+SBGColor = ColorDark
+SBGDColor = ColorLight
+STColor = White
+STDColor = GrayDark
+
+[EditSubLyric]
+X = 30
+Y = 270
+W = 100
+H = 20
+SkipX = 10
+TextSize = 16
+Text = EDIT_LYRIC
+Tex = MainBar
+Type = Colorized
+TexSBG = MainBar
+TypeSBG = Colorized
+ShowArrows = 0
+SBGW = 350
+Align = 0
+
+Color = ColorDark
+DColor = ColorLight
+TColor = White
+TDColor = White
+
+SBGColor = ColorDark
+SBGDColor = ColorLight
+STColor = White
+STDColor = GrayDark
diff --git a/us_maker_edition/game/themes/Deluxe.ini b/us_maker_edition/game/themes/Deluxe.ini
index f2bafc88..4410eecf 100644
--- a/us_maker_edition/game/themes/Deluxe.ini
+++ b/us_maker_edition/game/themes/Deluxe.ini
@@ -8678,4 +8678,292 @@ IndicatorYOffset = 3
X = 80
W = 640
Y = 535
-H = 41 \ No newline at end of file
+H = 41
+
+[EditSub]
+
+[EditSubTitle]
+X = 30
+Y = 60
+W = 100
+H = 20
+SkipX = 10
+TextSize = 16
+Text = EDIT_TITLE
+Tex = MainBar
+Type = Colorized
+TexSBG = MainBar
+TypeSBG = Colorized
+ShowArrows = 0
+SBGW = 350
+Align = 0
+
+Color = ColorDark
+DColor = ColorLight
+TColor = White
+TDColor = White
+
+SBGColor = ColorDark
+SBGDColor = ColorLight
+STColor = White
+STDColor = GrayDark
+
+[EditSubArtist]
+X = 30
+Y = 81
+W = 100
+H = 20
+SkipX = 10
+TextSize = 16
+Text = EDIT_ARTIST
+Tex = MainBar
+Type = Colorized
+TexSBG = MainBar
+TypeSBG = Colorized
+ShowArrows = 0
+SBGW = 350
+Align = 0
+
+Color = ColorDark
+DColor = ColorLight
+TColor = White
+TDColor = White
+
+SBGColor = ColorDark
+SBGDColor = ColorLight
+STColor = White
+STDColor = GrayDark
+
+[EditSubMP3]
+X = 30
+Y = 102
+W = 100
+H = 20
+SkipX = 10
+TextSize = 16
+Text = EDIT_MP3
+Tex = MainBar
+Type = Colorized
+TexSBG = MainBar
+TypeSBG = Colorized
+ShowArrows = 0
+SBGW = 350
+Align = 0
+
+Color = ColorDark
+DColor = ColorLight
+TColor = White
+TDColor = White
+
+SBGColor = ColorDark
+SBGDColor = ColorLight
+STColor = White
+STDColor = GrayDark
+
+[EditSubCover]
+X = 30
+Y = 123
+W = 100
+H = 20
+SkipX = 10
+TextSize = 16
+Text = EDIT_COVER
+Tex = MainBar
+Type = Colorized
+TexSBG = MainBar
+TypeSBG = Colorized
+ShowArrows = 0
+SBGW = 350
+Align = 0
+
+Color = ColorDark
+DColor = ColorLight
+TColor = White
+TDColor = White
+
+SBGColor = ColorDark
+SBGDColor = ColorLight
+STColor = White
+STDColor = GrayDark
+
+[EditSubBackground]
+X = 30
+Y = 144
+W = 100
+H = 20
+SkipX = 10
+TextSize = 16
+Text = EDIT_BACKGROUND
+Tex = MainBar
+Type = Colorized
+TexSBG = MainBar
+TypeSBG = Colorized
+ShowArrows = 0
+SBGW = 350
+Align = 0
+
+Color = ColorDark
+DColor = ColorLight
+TColor = White
+TDColor = White
+
+SBGColor = ColorDark
+SBGDColor = ColorLight
+STColor = White
+STDColor = GrayDark
+
+[EditSubBPM]
+X = 30
+Y = 165
+W = 100
+H = 20
+SkipX = 10
+TextSize = 16
+Text = EDIT_BPM
+Tex = MainBar
+Type = Colorized
+TexSBG = MainBar
+TypeSBG = Colorized
+ShowArrows = 0
+SBGW = 100
+Align = 0
+
+Color = ColorDark
+DColor = ColorLight
+TColor = White
+TDColor = White
+
+SBGColor = ColorDark
+SBGDColor = ColorLight
+STColor = White
+STDColor = GrayDark
+
+[EditSubGAP]
+X = 30
+Y = 186
+W = 100
+H = 20
+SkipX = 10
+TextSize = 16
+Text = EDIT_GAP
+Tex = MainBar
+Type = Colorized
+TexSBG = MainBar
+TypeSBG = Colorized
+ShowArrows = 0
+SBGW = 100
+Align = 0
+
+Color = ColorDark
+DColor = ColorLight
+TColor = White
+TDColor = White
+
+SBGColor = ColorDark
+SBGDColor = ColorLight
+STColor = White
+STDColor = GrayDark
+
+[EditSubStart]
+X = 30
+Y = 207
+W = 100
+H = 20
+SkipX = 10
+TextSize = 16
+Text = EDIT_START
+Tex = MainBar
+Type = Colorized
+TexSBG = MainBar
+TypeSBG = Colorized
+ShowArrows = 0
+SBGW = 100
+Align = 0
+
+Color = ColorDark
+DColor = ColorLight
+TColor = White
+TDColor = White
+
+SBGColor = ColorDark
+SBGDColor = ColorLight
+STColor = White
+STDColor = GrayDark
+
+[EditSubDuration]
+X = 30
+Y = 228
+W = 100
+H = 20
+SkipX = 10
+TextSize = 16
+Text = EDIT_DURATION
+Tex = MainBar
+Type = Colorized
+TexSBG = MainBar
+TypeSBG = Colorized
+ShowArrows = 0
+SBGW = 100
+Align = 0
+
+Color = ColorDark
+DColor = ColorLight
+TColor = White
+TDColor = White
+
+SBGColor = ColorDark
+SBGDColor = ColorLight
+STColor = White
+STDColor = GrayDark
+
+[EditSubTone]
+X = 30
+Y = 249
+W = 100
+H = 20
+SkipX = 10
+TextSize = 16
+Text = EDIT_TONE
+Tex = MainBar
+Type = Colorized
+TexSBG = MainBar
+TypeSBG = Colorized
+ShowArrows = 0
+SBGW = 100
+Align = 0
+
+Color = ColorDark
+DColor = ColorLight
+TColor = White
+TDColor = White
+
+SBGColor = ColorDark
+SBGDColor = ColorLight
+STColor = White
+STDColor = GrayDark
+
+[EditSubLyric]
+X = 30
+Y = 270
+W = 100
+H = 20
+SkipX = 10
+TextSize = 16
+Text = EDIT_LYRIC
+Tex = MainBar
+Type = Colorized
+TexSBG = MainBar
+TypeSBG = Colorized
+ShowArrows = 0
+SBGW = 350
+Align = 0
+
+Color = ColorDark
+DColor = ColorLight
+TColor = White
+TDColor = White
+
+SBGColor = ColorDark
+SBGDColor = ColorLight
+STColor = White
+STDColor = GrayDark
diff --git a/us_maker_edition/src/base/UThemes.pas b/us_maker_edition/src/base/UThemes.pas
index b385406f..1f18dcc5 100644
--- a/us_maker_edition/src/base/UThemes.pas
+++ b/us_maker_edition/src/base/UThemes.pas
@@ -505,6 +505,21 @@ type
DescriptionLong: array[0..5] of UTF8string;
end;
+ TThemeEditSub = class(TThemeBasic)
+ //in editor - headers
+ SlideTitle: TThemeSelectSlide;
+ SlideArtist: TThemeSelectSlide;
+ SlideMP3: TThemeSelectSlide;
+ SlideCover: TThemeSelectSlide;
+ SlideBackground: TThemeSelectSlide;
+ SlideBPM: TThemeSelectSlide;
+ SlideGAP: TThemeSelectSlide;
+ SlideStart: TThemeSelectSlide;
+ SlideDuration: TThemeSelectSlide;
+ SlideTone: TThemeSelectSlide;
+ SlideLyric: TThemeSelectSlide;
+ end;
+
//Error- and Check-Popup
TThemeError = class(TThemeBasic)
Button1: TThemeButton;
@@ -760,6 +775,7 @@ type
OptionsAdvanced: TThemeOptionsAdvanced;
//edit
Edit: TThemeEdit;
+ EditSub: TThemeEditSub;
//error and check popup
ErrorPopup: TThemeError;
CheckPopup: TThemeCheck;
@@ -892,7 +908,8 @@ begin
OptionsAdvanced := TThemeOptionsAdvanced.Create;
Edit := TThemeEdit.Create;
-
+ EditSub := TThemeEditSub.Create;
+
ErrorPopup := TThemeError.Create;
CheckPopup := TThemeCheck.Create;
@@ -1382,6 +1399,20 @@ begin
ThemeLoadText(Edit.TextDescription, 'EditTextDescription');
Edit.TextDescription.Text := Edit.Description[0];
+ // editor
+ ThemeLoadBasic (EditSub, 'EditSub');
+ ThemeLoadSelectSlide(EditSub.SlideTitle, 'EditSubTitle');
+ ThemeLoadSelectSlide(EditSub.SlideArtist, 'EditSubArtist');
+ ThemeLoadSelectSlide(EditSub.SlideMP3, 'EditSubMP3');
+ ThemeLoadSelectSlide(EditSub.SlideCover, 'EditSubCover');
+ ThemeLoadSelectSlide(EditSub.SlideBackground, 'EditSubBackground');
+ ThemeLoadSelectSlide(EditSub.SlideBPM, 'EditSubBPM');
+ ThemeLoadSelectSlide(EditSub.SlideGAP, 'EditSubGAP');
+ ThemeLoadSelectSlide(EditSub.SlideStart, 'EditSubStart');
+ ThemeLoadSelectSlide(EditSub.SlideDuration, 'EditSubDuration');
+ ThemeLoadSelectSlide(EditSub.SlideTone, 'EditSubTone');
+ ThemeLoadSelectSlide(EditSub.SlideLyric, 'EditSubLyric');
+
//error and check popup
ThemeLoadBasic (ErrorPopup, 'ErrorPopup');
ThemeLoadButton(ErrorPopup.Button1, 'ErrorPopupButton1');
@@ -2461,6 +2492,9 @@ begin
freeandnil(Edit);
Edit := TThemeEdit.Create;
+ freeandnil(EditSub);
+ EditSub := TThemeEditSub.Create;
+
freeandnil(ErrorPopup);
ErrorPopup := TThemeError.Create;
diff --git a/us_maker_edition/src/menu/UMenu.pas b/us_maker_edition/src/menu/UMenu.pas
index b011eddf..f92cacf0 100644
--- a/us_maker_edition/src/menu/UMenu.pas
+++ b/us_maker_edition/src/menu/UMenu.pas
@@ -1292,6 +1292,7 @@ begin
AddSelectSlideOption(Values[SO]);
SelectsS[High(SelectsS)].Text.Size := ThemeSelectS.TextSize;
+ SelectsS[High(SelectsS)].Text.Y := ThemeSelectS.Y + (ThemeSelectS.H /2 ) - (ThemeSelectS.TextSize / 2);
SelectsS[High(SelectsS)].Texture.Z := ThemeSelectS.Z;
SelectsS[High(SelectsS)].TextureSBG.Z := ThemeSelectS.Z;
diff --git a/us_maker_edition/src/screens/UScreenEditSub.pas b/us_maker_edition/src/screens/UScreenEditSub.pas
index 6e9cbebf..a337200e 100644
--- a/us_maker_edition/src/screens/UScreenEditSub.pas
+++ b/us_maker_edition/src/screens/UScreenEditSub.pas
@@ -59,19 +59,19 @@ type
AktBeat: integer;
//Variable is True if no Song is loaded
Error: boolean;
-
+
TextNote: integer;
TextSentence: integer;
- TextTitle: integer;
+{ TextTitle: integer;
TextArtist: integer;
TextMp3: integer;
TextBPM: integer;
- TextGAP: integer;
+ TextGAP: integer;}
TextDebug: integer;
- TextNStart: integer;
+{ TextNStart: integer;
TextNLength: integer;
TextNTon: integer;
- TextNText: integer;
+ TextNText: integer;}
CurrentNote: integer;
PlaySentence: boolean;
PlaySentenceMidi: boolean;
@@ -93,6 +93,64 @@ type
TextEditMode: boolean;
editText: UTF8String; //backup of current text in text-edit-mode
+ //headers values
+ VolumeAudioIndex,VolumeMidiIndex,VolumeClickIndex: integer; //for update slide
+ //title header
+ TitleSlideId: integer;
+ TitleData: integer;
+ TitleVal: array of UTF8String;
+ SlideTitleIndex: integer;
+ // artist header
+ ArtistSlideId: integer;
+ ArtistData: integer;
+ ArtistVal: array of UTF8String;
+ SlideArtistIndex: integer;
+ // mp3 header
+ MP3SlideId: integer;
+ MP3Data: integer;
+ MP3Val: array of UTF8String;
+ SlideMP3Index: integer;
+ // Cover header
+ CoverSlideId: integer;
+ CoverData: integer;
+ CoverVal: array of UTF8String;
+ SlideCoverIndex: integer;
+ // Background header
+ BackgroundSlideId: integer;
+ BackgroundData: integer;
+ BackgroundVal: array of UTF8String;
+ SlideBackgroundIndex: integer;
+ // BPM header
+ BPMSlideId: integer;
+ BPMData: integer;
+ BPMVal: array of UTF8String;
+ SlideBPMIndex: integer;
+ // GAP header
+ GAPSlideId: integer;
+ GAPData: integer;
+ GAPVal: array of UTF8String;
+ SlideGAPIndex: integer;
+ // Start header
+ StartSlideId: integer;
+ StartData: integer;
+ StartVal: array of UTF8String;
+ SlideStartIndex: integer;
+ // Duration header
+ DurationSlideId: integer;
+ DurationData: integer;
+ DurationVal: array of UTF8String;
+ SlideDurationIndex: integer;
+ // Tone header
+ ToneSlideId: integer;
+ ToneData: integer;
+ ToneVal: array of UTF8String;
+ SlideToneIndex: integer;
+ // Text header
+ LyricSlideId: integer;
+ LyricData: integer;
+ LyricVal: array of UTF8String;
+ SlideLyricIndex: integer;
+
Lyric: TEditorLyrics;
procedure DivideBPM;
@@ -1478,6 +1536,16 @@ constructor TScreenEditSub.Create;
begin
inherited Create;
SetLength(Player, 1);
+ SetLength(TitleVal, 0);
+ SetLength(ArtistVal, 0);
+ SetLength(MP3Val, 0);
+ SetLength(CoverVal, 0);
+ SetLength(BackgroundVal, 0);
+ SetLength(BPMVal, 0);
+ SetLength(GAPVal, 0);
+ SetLength(ToneVal, 0);
+ SetLength(DurationVal, 0);
+ SetLength(LyricVal, 0);
// line
AddText(40, 11, 1, 30, 0, 0, 0, 'Line:');
@@ -1489,28 +1557,77 @@ begin
TextNote := AddText(360, 11, 1, 30, 0, 0, 0, '0 / 0');
// file info
- AddText(30, 65, 0, 24, 0, 0, 0, 'Title:');
- AddText(30, 90, 0, 24, 0, 0, 0, 'Artist:');
- AddText(30, 115, 0, 24, 0, 0, 0, 'Mp3:');
- AddText(30, 140, 0, 24, 0, 0, 0, 'BPM:');
- AddText(30, 165, 0, 24, 0, 0, 0, 'GAP:');
-
- TextTitle := AddText(180, 65, 0, 24, 0, 0, 0, 'a');
- TextArtist := AddText(180, 90, 0, 24, 0, 0, 0, 'b');
- TextMp3 := AddText(180, 115, 0, 24, 0, 0, 0, 'c');
- TextBPM := AddText(180, 140, 0, 24, 0, 0, 0, 'd');
- TextGAP := AddText(180, 165, 0, 24, 0, 0, 0, 'e');
+ // AddText(30, 65, 0, 24, 0, 0, 0, 'Title:');
+ // Title Header
+ TitleSlideId := AddSelectSlide(Theme.EditSub.SlideTitle, Titledata, TitleVal);
+ SelectsS[TitleSlideId].Text.Align := 0;
+ SelectsS[TitleSlideId].Text.X := SelectsS[TitleSlideId].Texture.X + 3;
+
+ // AddText(30, 90, 0, 24, 0, 0, 0, 'Artist:');
+ // Artist Header
+ ArtistSlideId := AddSelectSlide(Theme.EditSub.SlideArtist, Artistdata, ArtistVal);
+ SelectsS[ArtistSlideId].Text.Align := 0;
+ SelectsS[ArtistSlideId].Text.X := SelectsS[ArtistSlideId].Texture.X + 3;
+
+ //AddText(30, 115, 0, 24, 0, 0, 0, 'Mp3:');
+ // Artist Header
+ MP3SlideId := AddSelectSlide(Theme.EditSub.SlideMP3, MP3data, MP3Val);
+ SelectsS[MP3SlideId].Text.Align := 0;
+ SelectsS[MP3SlideId].Text.X := SelectsS[MP3SlideId].Texture.X + 3;
+ // Cover Header
+ CoverSlideId := AddSelectSlide(Theme.EditSub.SlideCover, Coverdata, CoverVal);
+ SelectsS[CoverSlideId].Text.Align := 0;
+ SelectsS[CoverSlideId].Text.X := SelectsS[CoverSlideId].Texture.X + 3;
+ // Background Header
+ BackgroundSlideId := AddSelectSlide(Theme.EditSub.SlideBackground, Backgrounddata, BackgroundVal);
+ SelectsS[BackgroundSlideId].Text.Align := 0;
+ SelectsS[BackgroundSlideId].Text.X := SelectsS[BackgroundSlideId].Texture.X + 3;
+ // AddText(30, 140, 0, 24, 0, 0, 0, 'BPM:');
+ // BPM Header
+ BPMSlideId := AddSelectSlide(Theme.EditSub.SlideBPM, BPMdata, BPMVal);
+ SelectsS[BPMSlideId].Text.Align := 0;
+ SelectsS[BPMSlideId].Text.X := SelectsS[BPMSlideId].Texture.X + 3;
+ //AddText(30, 165, 0, 24, 0, 0, 0, 'GAP:');
+ // GAP Header
+ GAPSlideId := AddSelectSlide(Theme.EditSub.SlideGAP, GAPdata, GAPVal);
+ SelectsS[GAPSlideId].Text.Align := 0;
+ SelectsS[GAPSlideId].Text.X := SelectsS[GAPSlideId].Texture.X + 3;
+ // Start Header
+ StartSlideId := AddSelectSlide(Theme.EditSub.SlideStart, Startdata, StartVal);
+ SelectsS[StartSlideId].Text.Align := 0;
+ SelectsS[StartSlideId].Text.X := SelectsS[StartSlideId].Texture.X + 3;
+ // Duration Header
+ DurationSlideId := AddSelectSlide(Theme.EditSub.SlideDuration, Durationdata, DurationVal);
+ SelectsS[DurationSlideId].Text.Align := 0;
+ SelectsS[DurationSlideId].Text.X := SelectsS[StartSlideId].Texture.X + 3;
+ // Tone Header
+ ToneSlideId := AddSelectSlide(Theme.EditSub.SlideTone, Tonedata, ToneVal);
+ SelectsS[ToneSlideId].Text.Align := 0;
+ SelectsS[ToneSlideId].Text.X := SelectsS[ToneSlideId].Texture.X + 3;
+ // Text Header
+ LyricSlideId := AddSelectSlide(Theme.EditSub.SlideLyric, Lyricdata, LyricVal);
+ SelectsS[LyricSlideId].Text.Align := 0;
+ SelectsS[LyricSlideId].Text.X := SelectsS[LyricSlideId].Texture.X + 3;
+
+
+
+
+// TextTitle := AddText(180, 65, 0, 24, 0, 0, 0, 'a');
+// TextArtist := AddText(180, 90, 0, 24, 0, 0, 0, 'b');
+// TextMp3 := AddText(180, 115, 0, 24, 0, 0, 0, 'c');
+// TextBPM := AddText(180, 140, 0, 24, 0, 0, 0, 'd');
+// TextGAP := AddText(180, 165, 0, 24, 0, 0, 0, 'e');
// note info
- AddText(30, 190, 0, 24, 0, 0, 0, 'Start:');
- AddText(30, 215, 0, 24, 0, 0, 0, 'Duration:');
- AddText(30, 240, 0, 24, 0, 0, 0, 'Tone:');
- AddText(30, 265, 0, 24, 0, 0, 0, 'Text:'); //AddText(500, 265, 0, 8, 0, 0, 0, 'VideoGap:');
+// AddText(30, 190, 0, 24, 0, 0, 0, 'Start:');
+// AddText(30, 215, 0, 24, 0, 0, 0, 'Duration:');
+// AddText(30, 240, 0, 24, 0, 0, 0, 'Tone:');
+// AddText(30, 265, 0, 24, 0, 0, 0, 'Text:'); //AddText(500, 265, 0, 8, 0, 0, 0, 'VideoGap:');
- TextNStart := AddText(180, 190, 0, 24, 0, 0, 0, 'a');
- TextNLength := AddText(180, 215, 0, 24, 0, 0, 0, 'b');
- TextNTon := AddText(180, 240, 0, 24, 0, 0, 0, 'c');
- TextNText := AddText(180, 265, 0, 24, 0, 0, 0, 'd');
+// TextNStart := AddText(180, 190, 0, 24, 0, 0, 0, 'a');
+// TextNLength := AddText(180, 215, 0, 24, 0, 0, 0, 'b');
+// TextNTon := AddText(180, 240, 0, 24, 0, 0, 0, 'c');
+// TextNText := AddText(180, 265, 0, 24, 0, 0, 0, 'd');
//TextVideoGap := AddText(600, 265, 0, 24, 0, 0, 0, 'e');
@@ -1534,7 +1651,7 @@ begin
ResetSingTemp;
- try
+ try
//Check if File is XML
FileExt := CurrentSong.FileName.GetExtension;
if FileExt.ToUTF8 = '.xml' then
@@ -1563,9 +1680,90 @@ begin
MidiOut := TMidiOutput.Create(nil);
MidiOut.Open;
{$ENDIF}
- Text[TextTitle].Text := CurrentSong.Title;
- Text[TextArtist].Text := CurrentSong.Artist;
- Text[TextMp3].Text := CurrentSong.Mp3.ToUTF8;
+ // Text[TextTitle].Text := CurrentSong.Title;
+ // Header Title
+ SetLength(TitleVal, 1);
+ TitleVal[0] := CurrentSong.Title;
+ SlideTitleIndex := 1;
+ UpdateSelectSlideOptions(Theme.EditSub.SlideTitle,TitleSlideId,TitleVal,SlideTitleIndex);
+ SelectsS[TitleSlideId].TextOpt[0].Align := 0;
+ SelectsS[TitleSlideId].TextOpt[0].X := SelectsS[TitleSlideId].TextureSBG.X + 5;
+
+ // Text[TextArtist].Text := CurrentSong.Artist;
+ // Header Artist
+ SetLength(ArtistVal, 1);
+ ArtistVal[0] := CurrentSong.Artist;
+ SlideArtistIndex := 1;
+ UpdateSelectSlideOptions(Theme.EditSub.SlideArtist,ArtistSlideId,ArtistVal,SlideArtistIndex);
+ SelectsS[ArtistSlideId].TextOpt[0].Align := 0;
+ SelectsS[ArtistSlideId].TextOpt[0].X := SelectsS[ArtistSlideId].TextureSBG.X + 5;
+
+ //Text[TextMp3].Text := CurrentSong.Mp3.ToUTF8;
+ // Header MP3
+ SetLength(MP3Val, 1);
+ MP3Val[0] := CurrentSong.Mp3.ToUTF8;
+ SlideMP3Index := 1;
+ UpdateSelectSlideOptions(Theme.EditSub.SlideMP3,MP3SlideId,MP3Val,SlideMP3Index);
+ SelectsS[MP3SlideId].TextOpt[0].Align := 0;
+ SelectsS[MP3SlideId].TextOpt[0].X := SelectsS[MP3SlideId].TextureSBG.X + 5;
+
+ // Header Cover
+ SetLength(CoverVal, 1);
+ CoverVal[0] := CurrentSong.Cover.ToUTF8;
+ SlideCoverIndex := 1;
+ UpdateSelectSlideOptions(Theme.EditSub.SlideCover,CoverSlideId,CoverVal,SlideCoverIndex);
+ SelectsS[CoverSlideId].TextOpt[0].Align := 0;
+ SelectsS[CoverSlideId].TextOpt[0].X := SelectsS[CoverSlideId].TextureSBG.X + 5;
+
+ // Header Background
+ SetLength(BackgroundVal, 1);
+ BackgroundVal[0] := CurrentSong.Background.ToUTF8;
+ SlideBackgroundIndex := 1;
+ UpdateSelectSlideOptions(Theme.EditSub.SlideBackground,BackgroundSlideId,BackgroundVal,SlideBackgroundIndex);
+ SelectsS[BackgroundSlideId].TextOpt[0].Align := 0;
+ SelectsS[BackgroundSlideId].TextOpt[0].X := SelectsS[BackgroundSlideId].TextureSBG.X + 5;
+ // Header BPM
+ SetLength(BPMVal, 1);
+ BPMVal[0] := '';
+ SlideBPMIndex := 1;
+ UpdateSelectSlideOptions(Theme.EditSub.SlideBPM,BPMSlideId,BPMVal,SlideBPMIndex);
+ SelectsS[BPMSlideId].TextOpt[0].Align := 0;
+ SelectsS[BPMSlideId].TextOpt[0].X := SelectsS[BPMSlideId].TextureSBG.X + 5;
+ // Header GAP
+ SetLength(GAPVal, 1);
+ GAPVal[0] := '';
+ SlideGAPIndex := 1;
+ UpdateSelectSlideOptions(Theme.EditSub.SlideGAP,GAPSlideId,GAPVal,SlideGAPIndex);
+ SelectsS[GAPSlideId].TextOpt[0].Align := 0;
+ SelectsS[GAPSlideId].TextOpt[0].X := SelectsS[GAPSlideId].TextureSBG.X + 5;
+ // Header Start
+ SetLength(StartVal, 1);
+ StartVal[0] := '';
+ SlideStartIndex := 1;
+ UpdateSelectSlideOptions(Theme.EditSub.SlideStart,StartSlideId,StartVal,SlideStartIndex);
+ SelectsS[StartSlideId].TextOpt[0].Align := 0;
+ SelectsS[StartSlideId].TextOpt[0].X := SelectsS[StartSlideId].TextureSBG.X + 5;
+ // Header Duration
+ SetLength(DurationVal, 1);
+ DurationVal[0] := '';
+ SlideDurationIndex := 1;
+ UpdateSelectSlideOptions(Theme.EditSub.SlideDuration,DurationSlideId,DurationVal,SlideDurationIndex);
+ SelectsS[DurationSlideId].TextOpt[0].Align := 0;
+ SelectsS[DurationSlideId].TextOpt[0].X := SelectsS[DurationSlideId].TextureSBG.X + 5;
+ // Header Tone
+ SetLength(ToneVal, 1);
+ ToneVal[0] := '';
+ SlideDurationIndex := 1;
+ UpdateSelectSlideOptions(Theme.EditSub.SlideTone,ToneSlideId,ToneVal,SlideToneIndex);
+ SelectsS[ToneSlideId].TextOpt[0].Align := 0;
+ SelectsS[ToneSlideId].TextOpt[0].X := SelectsS[ToneSlideId].TextureSBG.X + 5;
+ // Header Tone
+ SetLength(LyricVal, 1);
+ LyricVal[0] := '';
+ SlideLyricIndex := 1;
+ UpdateSelectSlideOptions(Theme.EditSub.SlideLyric,LyricSlideId,LyricVal,SlideLyricIndex);
+ SelectsS[LyricSlideId].TextOpt[0].Align := 0;
+ SelectsS[LyricSlideId].TextOpt[0].X := SelectsS[LyricSlideId].TextureSBG.X + 5;
Lines[0].Current := 0;
CurrentNote := 0;
@@ -1667,30 +1865,49 @@ begin
end;
end; // click
end; // if PlaySentence
-
+
Text[TextSentence].Text := IntToStr(Lines[0].Current + 1) + ' / ' + IntToStr(Lines[0].Number);
Text[TextNote].Text := IntToStr(CurrentNote + 1) + ' / ' + IntToStr(Lines[0].Line[Lines[0].Current].HighNote + 1);
// Song info
- Text[TextBPM].Text := FloatToStr(CurrentSong.BPM[0].BPM / 4);
- Text[TextGAP].Text := FloatToStr(CurrentSong.GAP);
+ //Text[TextBPM].Text := FloatToStr(CurrentSong.BPM[0].BPM / 4);
+ BPMVal[0] := FloatToStr(CurrentSong.BPM[0].BPM / 4);
+ SelectsS[BPMSlideId].TextOpt[0].Text := BPMVal[0];
+ //Text[TextGAP].Text := FloatToStr(CurrentSong.GAP);
+ GAPVal[0] := FloatToStr(CurrentSong.GAP);
+ SelectsS[GAPSlideId].TextOpt[0].Text := GAPVal[0];
//Error reading Variables when no Song is loaded
if not Error then
begin
// Note info
- Text[TextNStart].Text := IntToStr(Lines[0].Line[Lines[0].Current].Note[CurrentNote].Start);
- Text[TextNLength].Text := IntToStr(Lines[0].Line[Lines[0].Current].Note[CurrentNote].Length);
- Text[TextNTon].Text := IntToStr(Lines[0].Line[Lines[0].Current].Note[CurrentNote].Tone) + ' ( ' + GetNoteName(Lines[0].Line[Lines[0].Current].Note[CurrentNote].Tone) + ' )';
- Text[TextNText].Text := Lines[0].Line[Lines[0].Current].Note[CurrentNote].Text;
+ //Text[TextNStart].Text := IntToStr(Lines[0].Line[Lines[0].Current].Note[CurrentNote].Start);
+ StartVal[0] := IntToStr(Lines[0].Line[Lines[0].Current].Note[CurrentNote].Start);
+ SelectsS[StartSlideId].TextOpt[0].Text := StartVal[0];
+ //Text[TextNLength].Text := IntToStr(Lines[0].Line[Lines[0].Current].Note[CurrentNote].Length);
+ DurationVal[0] := IntToStr(Lines[0].Line[Lines[0].Current].Note[CurrentNote].Length);
+ SelectsS[DurationSlideId].TextOpt[0].Text := DurationVal[0];
+ //Text[TextNTon].Text := IntToStr(Lines[0].Line[Lines[0].Current].Note[CurrentNote].Tone) + ' ( ' + GetNoteName(Lines[0].Line[Lines[0].Current].Note[CurrentNote].Tone) + ' )';
+ ToneVal[0] := IntToStr(Lines[0].Line[Lines[0].Current].Note[CurrentNote].Tone) + ' ( ' + GetNoteName(Lines[0].Line[Lines[0].Current].Note[CurrentNote].Tone) + ' )';
+ SelectsS[ToneSlideId].TextOpt[0].Text := ToneVal[0];
+ //Text[TextNText].Text := Lines[0].Line[Lines[0].Current].Note[CurrentNote].Text;
+ LyricVal[0] := Lines[0].Line[Lines[0].Current].Note[CurrentNote].Text;
+ SelectsS[LyricSlideId].TextOpt[0].Text := LyricVal[0];
+
end;
// Text Edit Mode
if TextEditMode then
- Text[TextNText].Text := Text[TextNText].Text + '|';
+ begin
+ //Text[TextNText].Text := Text[TextNText].Text + '|';
+ LyricVal[0] := LyricVal[0] + '|';
+ SelectsS[LyricSlideId].TextOpt[0].Text := LyricVal[0];
+
+ end;
// draw static menu
+ DrawBG;
DrawStatics;
DrawInfoBar(20, 460, 760, 20);
//inherited Draw;
generated by cgit v1.2.3 (git 2.25.1) at 2024-12-26 22:24:26 +0000