aboutsummaryrefslogtreecommitdiffstats
path: root/us_maker_edition/src/base
diff options
context:
space:
mode:
Diffstat (limited to 'us_maker_edition/src/base')
-rw-r--r--us_maker_edition/src/base/UThemes.pas36
1 files changed, 35 insertions, 1 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;