aboutsummaryrefslogtreecommitdiffstats
path: root/Game/Code/Screens/UScreenEditSub.pas
diff options
context:
space:
mode:
authorbrunzelchen <brunzelchen@b956fd51-792f-4845-bead-9b4dfca2ff2c>2011-04-25 10:53:52 +0000
committerbrunzelchen <brunzelchen@b956fd51-792f-4845-bead-9b4dfca2ff2c>2011-04-25 10:53:52 +0000
commit3de159b0d467f57967642431f96b7d675b004b8e (patch)
treea690bb422069071e4d8c0a5c8ddf92642ba24925 /Game/Code/Screens/UScreenEditSub.pas
parented610027abbb1ffebc8067a623f785ed48680ecc (diff)
downloadusdx-3de159b0d467f57967642431f96b7d675b004b8e.tar.gz
usdx-3de159b0d467f57967642431f96b7d675b004b8e.tar.xz
usdx-3de159b0d467f57967642431f96b7d675b004b8e.zip
added song quality check
git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/branches/1.0.1 Challenge MOD@2829 b956fd51-792f-4845-bead-9b4dfca2ff2c
Diffstat (limited to 'Game/Code/Screens/UScreenEditSub.pas')
-rw-r--r--Game/Code/Screens/UScreenEditSub.pas3
1 files changed, 3 insertions, 0 deletions
diff --git a/Game/Code/Screens/UScreenEditSub.pas b/Game/Code/Screens/UScreenEditSub.pas
index b232ff19..31196d45 100644
--- a/Game/Code/Screens/UScreenEditSub.pas
+++ b/Game/Code/Screens/UScreenEditSub.pas
@@ -387,6 +387,9 @@ begin
if SResult then
begin
Text[TextDebug].Text := Language.Translate('INFO_FILE_SAVED');
+ if not CheckSong then
+ ScreenPopupError.ShowPopup('This song contains some syntax errors!');
+
CatSongs.Song[SongIndex] := AktSong;
end else
begin