aboutsummaryrefslogtreecommitdiffstats
path: root/Game/Code/Classes
diff options
context:
space:
mode:
Diffstat (limited to 'Game/Code/Classes')
-rw-r--r--Game/Code/Classes/ULCD.pas16
-rw-r--r--Game/Code/Classes/UVideo.pas4
2 files changed, 12 insertions, 8 deletions
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;
diff --git a/Game/Code/Classes/UVideo.pas b/Game/Code/Classes/UVideo.pas
index d3cd4ac7..2dd745fd 100644
--- a/Game/Code/Classes/UVideo.pas
+++ b/Game/Code/Classes/UVideo.pas
@@ -89,14 +89,14 @@ var
implementation
{$ifdef DebugDisplay}
-{$ifNdef win32}
+//{$ifNdef win32}
procedure showmessage( aMessage : String );
begin
writeln( aMessage );
end;
-{$endif}
+//{$endif}
{$ENDIF}
{ ------------------------------------------------------------------------------