From 0d997f8433e982584a0ab67a6d630d12f4314759 Mon Sep 17 00:00:00 2001
From: jaybinks <jaybinks@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Thu, 11 Oct 2007 10:50:01 +0000
Subject: fixes so codebase builds in delphi now, after major FFMpeg changse
 for linux.

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@503 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
 Game/Code/Classes/ULCD.pas | 16 ++++++++++------
 1 file changed, 10 insertions(+), 6 deletions(-)

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

diff --git a/Game/Code/Classes/ULCD.pas b/Game/Code/Classes/ULCD.pas
index 52b0f96a..50214ad0 100644
--- a/Game/Code/Classes/ULCD.pas
+++ b/Game/Code/Classes/ULCD.pas
@@ -46,6 +46,7 @@ uses
   {$IFDEF UseSerialPort}
   zlportio,
   {$ENDIF}
+  SDL,
   UTime;
 
 procedure TLCD.WriteCommand(B: Byte);
@@ -64,7 +65,7 @@ begin
     zlioportwrite(Data, 0, B and $F0);
     zlioportwrite(Control, 0, $03);
 
-    TimeSleep(0.1);
+    SDL_Delay( 100 );
 
     zlioportwrite(Control, 0, $02);
     zlioportwrite(Data, 0, (B * 16) and $F0);
@@ -74,7 +75,7 @@ begin
   if (B=1) or (B=2) then
     Sleep(2)
   else
-    TimeSleep(0.1);
+    SDL_Delay( 100 );
 {$ENDIF}
 end;
 
@@ -82,23 +83,26 @@ procedure TLCD.WriteData(B: Byte);
 // Wysylanie danych
 begin
 {$IFDEF UseSerialPort} 
-  if not HalfInterface then begin
+  if not HalfInterface then
+  begin
     zlioportwrite(Control, 0, $06);
     zlioportwrite(Data, 0, B);
     zlioportwrite(Control, 0, $07);
-  end else begin
+  end
+  else
+  begin
     zlioportwrite(Control, 0, $06);
     zlioportwrite(Data, 0, B and $F0);
     zlioportwrite(Control, 0, $07);
 
-    TimeSleep(0.1);
+    SDL_Delay( 100 );
 
     zlioportwrite(Control, 0, $06);
     zlioportwrite(Data, 0, (B * 16) and $F0);
     zlioportwrite(Control, 0, $07);
   end;
 
-  TimeSleep(0.1);
+  SDL_Delay( 100 );
   Inc(Position);
 {$ENDIF}
 end;
-- 
cgit v1.2.3