aboutsummaryrefslogtreecommitdiffstats
path: root/Game/Code/Screens/UScreenSing.pas
diff options
context:
space:
mode:
authorjaybinks <jaybinks@b956fd51-792f-4845-bead-9b4dfca2ff2c>2007-09-19 11:44:10 +0000
committerjaybinks <jaybinks@b956fd51-792f-4845-bead-9b4dfca2ff2c>2007-09-19 11:44:10 +0000
commit62c82114318ed04ce42617fa9ce2e179834dbda4 (patch)
tree65bf831fa62613baa778fd1413b3c0220fe951fb /Game/Code/Screens/UScreenSing.pas
parent433a1b7339e2bf96f3b0bb4c98b8c799c6540027 (diff)
downloadusdx-62c82114318ed04ce42617fa9ce2e179834dbda4.tar.gz
usdx-62c82114318ed04ce42617fa9ce2e179834dbda4.tar.xz
usdx-62c82114318ed04ce42617fa9ce2e179834dbda4.zip
added UCommon ( in classes ) for lazarus...
common functions needed for lazarus ( and others ) can be put in here. also this now compiles on lazarus.. ( dosnt link yet... but I dont get any critical compiler errors ) tested to compile in my delphi, and basic functionality is fine. git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@395 b956fd51-792f-4845-bead-9b4dfca2ff2c
Diffstat (limited to '')
-rw-r--r--Game/Code/Screens/UScreenSing.pas10
1 files changed, 8 insertions, 2 deletions
diff --git a/Game/Code/Screens/UScreenSing.pas b/Game/Code/Screens/UScreenSing.pas
index a5f6a317..1dd31ae9 100644
--- a/Game/Code/Screens/UScreenSing.pas
+++ b/Game/Code/Screens/UScreenSing.pas
@@ -2,6 +2,11 @@ unit UScreenSing;
interface
+{$IFDEF FPC}
+ {$MODE DELPHI}
+{$ENDIF}
+
+
uses UMenu, UMusic, SDL, SysUtils, UFiles, UTime, USongs, UIni, ULog, UTexture, ULyrics,
TextGL, OpenGL12, BASS, UThemes, ULCD, UGraphicClasses, UVideo;
@@ -364,8 +369,9 @@ begin
// set movie
if (AktSong.Video <> '') and FileExists(AktSong.Path + AktSong.Video) then begin
-{ OpenSmpeg(AktSong.Path + AktSong.Video);
- SkipSmpeg(AktSong.VideoGAP + AktSong.Start);}
+(* OpenSmpeg(AktSong.Path + AktSong.Video);
+ SkipSmpeg(AktSong.VideoGAP + AktSong.Start);*)
+
// todo: VideoGap and Start time verwursten
FFmpegOpenFile(pAnsiChar(AktSong.Path + AktSong.Video));
FFmpegSkip(AktSong.VideoGAP + AktSong.Start);