aboutsummaryrefslogtreecommitdiffstats
path: root/us_maker_edition/src
diff options
context:
space:
mode:
authordavidus01 <davidus01@b956fd51-792f-4845-bead-9b4dfca2ff2c>2010-05-19 23:49:10 +0000
committerdavidus01 <davidus01@b956fd51-792f-4845-bead-9b4dfca2ff2c>2010-05-19 23:49:10 +0000
commite5cd532b766a0d9929c7a0d8c598b79fc94c14a1 (patch)
treed9ad311f774303ee2a176b7872a43ede08525371 /us_maker_edition/src
parent394e5e3dec8b507c42de91ca48115e19f66b09e6 (diff)
downloadusdx-e5cd532b766a0d9929c7a0d8c598b79fc94c14a1.tar.gz
usdx-e5cd532b766a0d9929c7a0d8c598b79fc94c14a1.tar.xz
usdx-e5cd532b766a0d9929c7a0d8c598b79fc94c14a1.zip
headers as slides, added headers:cover & background
git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/branches/experimental@2392 b956fd51-792f-4845-bead-9b4dfca2ff2c
Diffstat (limited to '')
-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
3 files changed, 289 insertions, 37 deletions
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;