From 247cbdca4eb8af228fa1753f1185e85077b5befa Mon Sep 17 00:00:00 2001
From: b1indy <b1indy@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Fri, 7 Sep 2007 21:09:02 +0000
Subject: 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
---
 Game/Code/Classes/ULCD.pas | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

(limited to 'Game/Code/Classes/ULCD.pas')

diff --git a/Game/Code/Classes/ULCD.pas b/Game/Code/Classes/ULCD.pas
index a127c689..a3cdac73 100644
--- a/Game/Code/Classes/ULCD.pas
+++ b/Game/Code/Classes/ULCD.pas
@@ -106,9 +106,9 @@ begin
 end;
 
 procedure TLCD.Enable;
-var
+{var
   A:  byte;
-  B:  byte;
+  B:  byte;}
 begin
   Enabled := true;
   if not HalfInterface then
@@ -191,7 +191,7 @@ end;
 procedure TLCD.AddTextBR(S: string);
 var
   Word:     string;
-  W:        integer;
+//  W:        integer;
   P:        integer;
   L:        integer;
 begin
@@ -227,9 +227,9 @@ begin
 end;
 
 procedure TLCD.MoveCursorBR(Pos: integer);
-var
+{var
   I:    integer;
-  L:    integer;
+  L:    integer;}
 begin
   if Enabled then begin
   Pos := Pos - (StartPos-1);
-- 
cgit v1.2.3