UScreenSing.pas, UScreenSingModi.pas: removed Uffmpeg and USmpeg, added UVideo

UGraphic.pas: prepared for possible loading animation
UGraphicClasses.pas, ULCD.pas, ULight.pas, UMain.pas, USkins.pas, UDisplay.pas, UMenuButton.pas, UMenuSelect.pas, UMenuSelectSlide.pas, UMenuStatic.pas, UScreenCredits.pas, UScreenEditSub.pas, UScreenOpen.pas, UScreenPopup.pas: some fixes to get rid of some compiler infos/warnings

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

1 files changed, 4 insertions, 6 deletions

diff --git a/Game/Code/Screens/UScreenPopup.pas b/Game/Code/Screens/UScreenPopup.pas
index f583eb90..cc1b4492 100644
--- a/Game/Code/Screens/UScreenPopup.pas
+++ b/Game/Code/Screens/UScreenPopup.pas
@@ -19,8 +19,8 @@ type
 

 type

   TScreenPopupError = class(TMenu)

-    private

-      CurMenu: Byte; //Num of the cur. Shown Menu

+{    private

+      CurMenu: Byte; //Num of the cur. Shown Menu}

     public

       Visible: Boolean; //Whether the Menu should be Drawn

 

@@ -124,7 +124,7 @@ end;
 

 function TScreenPopupCheck.Draw: boolean;

 begin

-  inherited Draw;

+  Draw:=inherited Draw;

 end;

 

 procedure TScreenPopupCheck.onShow;

@@ -207,7 +207,7 @@ end;
 

 function TScreenPopupError.Draw: boolean;

 begin

-  inherited Draw;

+  Draw:=inherited Draw;

 end;

 

 procedure TScreenPopupError.onShow;

@@ -216,12 +216,10 @@ begin
 end;

 

 procedure TScreenPopupError.onHide;

-var i: integer;

 begin

 end;

 

 procedure TScreenPopupError.ShowPopup(msg: String);

-var i: integer;

 begin

   Interaction := 0; //Reset Interaction

   Visible := True;  //Set Visible