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

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;