+ compilation of unit 'drivers' fixed for the win16 target

git-svn-id: trunk@37648 -

packages/fv/src/drivers.pas

@@ -66,6 +66,11 @@ USES
          Windows,                                     { Standard unit }
    {$ENDIF}
 
+   {$IFDEF OS_WIN16}                                  { WIN16 CODE }
+         WinProcs, WinTypes,                          { Standard units }
+         Crt,                                         { used for Delay() }
+   {$ENDIF}
+
    {$ifdef OS_DOS}
      Dos,
    {$endif OS_DOS}
@@ -750,6 +755,11 @@ Function GetDosTicks:longint; { returns ticks at 18.2 Hz, just like DOS }
      GetDosTicks:=GetTickCount div 55;
   end;
 {$ENDIF OS_WINDOWS}
+{$IFDEF OS_WIN16}
+  begin
+     GetDosTicks:=GetTickCount div 55;
+  end;
+{$ENDIF OS_WIN16}
 {$IFDEF OS_DOS}
   begin
     GetDosTicks:=MemL[$40:$6c];
@@ -812,6 +822,11 @@ begin
     end;
 end;
 {$ENDIF}
+{$IFDEF OS_WIN16}
+  begin
+    Delay (10);
+  end;
+{$ENDIF}
 {$IFDEF OS_NETWARE_LIBC}
   begin
     Delay (10);