From f22fb5843becc1824bf2ea66bfd1b0626546c8a2 Mon Sep 17 00:00:00 2001
From: whiteshark0 <whiteshark0@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Mon, 22 Feb 2010 20:37:08 +0000
Subject: remove unused code from prev version of ScreenSong

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@2148 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
 src/screens/UScreenSong.pas | 17 -----------------
 1 file changed, 17 deletions(-)

diff --git a/src/screens/UScreenSong.pas b/src/screens/UScreenSong.pas
index b127c296..7fda384c 100644
--- a/src/screens/UScreenSong.pas
+++ b/src/screens/UScreenSong.pas
@@ -1773,23 +1773,6 @@ begin
   AudioPlayback.Stop;
 end;
 
-procedure StartMusicPreview(data: Pointer);
-var
-  ScreenSong: TScreenSong;
-begin
-  ScreenSong := TScreenSong(data);
-  if (ScreenSong <> nil) then
-    ScreenSong.StartMusicPreview();
-end;
-
-function MusicPreviewTimerCallback(interval: UInt32; param: Pointer): UInt32; cdecl;
-begin
-  // delegate execution to main-thread
-  MainThreadExec(@StartMusicPreview, param);
-  // stop timer
-  Result := 0;
-end;
-
 // Changes previewed song
 procedure TScreenSong.ChangeMusic;
 begin
-- 
cgit v1.2.3