From e1753d472ecafcebd24a6dfb32a67080694683cc Mon Sep 17 00:00:00 2001
From: davidus01 <davidus01@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Fri, 25 Jun 2010 22:11:39 +0000
Subject: editor: show background picture editor: background from Themes
 editor: correction in themes

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/branches/experimental@2562 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
 us_maker_edition/src/base/UThemes.pas | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

(limited to 'us_maker_edition/src/base/UThemes.pas')

diff --git a/us_maker_edition/src/base/UThemes.pas b/us_maker_edition/src/base/UThemes.pas
index 21d729f8..de569b97 100644
--- a/us_maker_edition/src/base/UThemes.pas
+++ b/us_maker_edition/src/base/UThemes.pas
@@ -507,6 +507,7 @@ type
 
   TThemeEditSub = class(TThemeBasic)
       //in editor - headers
+      BackgroundImage:     TThemeStatic;
       SlideTitle:          TThemeSelectSlide;
       SlideArtist:         TThemeSelectSlide;
       SlideMP3:            TThemeSelectSlide;
@@ -521,7 +522,7 @@ type
       SelectVolAudio:      TThemeSelectSlide;
       SelectVolMidi:       TThemeSelectSlide;
       SelectVolClick:      TThemeSelectSlide;
-      SlideVideoGap:      TThemeSelectSlide;
+      SlideVideoGap:       TThemeSelectSlide;
   end;
 
   //Error- and Check-Popup
@@ -913,7 +914,7 @@ begin
 
   Edit := TThemeEdit.Create;
   EditSub := TThemeEditSub.Create;
-  
+
   ErrorPopup := TThemeError.Create;
   CheckPopup := TThemeCheck.Create;
 
@@ -1405,11 +1406,12 @@ begin
 
       // editor
       ThemeLoadBasic (EditSub,               'EditSub');
+      ThemeLoadStatic(EditSub.BackgroundImage, 'EditSubBackgroundImage');
       ThemeLoadSelectSlide(EditSub.SlideTitle, 'EditSubTitle');
       ThemeLoadSelectSlide(EditSub.SlideArtist, 'EditSubArtist');
       ThemeLoadSelectSlide(EditSub.SlideMP3, 'EditSubMP3');
-      ThemeLoadSelectSlide(EditSub.SlideCover, 'EditSubCover');
-      ThemeLoadSelectSlide(EditSub.SlideBackground, 'EditSubBackground');
+      ThemeLoadSelectSlide(EditSub.SlideCover, 'EditSubSlideCover');
+      ThemeLoadSelectSlide(EditSub.SlideBackground, 'EditSubSlideBG');
       ThemeLoadSelectSlide(EditSub.SlideBPM, 'EditSubBPM');
       ThemeLoadSelectSlide(EditSub.SlideGAP, 'EditSubGAP');
       ThemeLoadSelectSlide(EditSub.SlideStart, 'EditSubStart');
-- 
cgit v1.2.3