conformed projectM to IVideoPlayback

still needs a little work.

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@678 b956fd51-792f-4845-bead-9b4dfca2ff2c

1 files changed, 5 insertions, 6 deletions

diff --git a/Game/Code/Classes/UPlatform.pas b/Game/Code/Classes/UPlatform.pas
index 878c1ec2..a06914d0 100644
--- a/Game/Code/Classes/UPlatform.pas
+++ b/Game/Code/Classes/UPlatform.pas
@@ -18,10 +18,10 @@ uses Classes;
 type
   
   TDirectoryEntry = Record
-    Name : WideString;
-	IsDirectory : Boolean;
-	IsFile : Boolean;
-  end;
+                      Name        : WideString;
+                      IsDirectory : Boolean;
+                      IsFile      : Boolean;
+                    end;
  
   TDirectoryEntryArray = Array of TDirectoryEntry;
 	
@@ -81,6 +81,5 @@ initialization
   {$ENDIF}
 
 finalization
-
-    Platform.Free;
+    freeandnil( Platform );
 end.