* removed warnigns

rtl/win32/crt.pp

@@ -542,7 +542,7 @@ end;
 
 function KeyPressed : boolean;
 var
-  nevents, nread, i: longint;
+  nevents, nread: longint;
   buf : TINPUTRECORD;
   AltKey: Boolean;
 begin
@@ -1006,7 +1006,10 @@ end. { unit Crt }
 
 {
   $Log$
-  Revision 1.6  2001-01-03 21:01:50  florian
+  Revision 1.7  2001-04-10 21:28:36  peter
+    * removed warnigns
+
+  Revision 1.6  2001/01/03 21:01:50  florian
     * fixed the repeat key bug introduced by my last patch
 
   Revision 1.5  2000/12/15 13:16:30  jonas

rtl/win32/mouse.pp

@@ -35,8 +35,6 @@ Const
 procedure MouseEventHandler(var ir:INPUT_RECORD);
 
   var
-     dwRead : DWord;
-     i: longint;
      e : TMouseEvent;
 
   begin
@@ -219,7 +217,10 @@ end;
 end.
 {
   $Log$
-  Revision 1.2  2001-01-14 22:20:00  peter
+  Revision 1.3  2001-04-10 21:28:36  peter
+    * removed warnigns
+
+  Revision 1.2  2001/01/14 22:20:00  peter
     * slightly optimized event handling (merged)
 
   Revision 1.1  2001/01/13 11:03:59  peter

rtl/win32/video.pp

@@ -149,6 +149,7 @@ end;
 
 function DefaultVideoModeSelector(const VideoMode: TVideoMode; Params: Longint): Boolean;
 begin
+  DefaultVideoModeSelector:=true;
 end;
 
 
@@ -180,7 +181,7 @@ var
    LineCounter,
    ColCounter  : Longint;
    smallforce  : boolean;
-{
+(*
 begin
   if LockUpdateScreen<>0 then
    exit;
@@ -230,7 +231,7 @@ begin
       move(VideoBuf^,OldVideoBuf^,VideoBufSize);
    end;
 end;
-}
+*)
 var
    x1,y1,x2,y2 : longint;
 
@@ -351,7 +352,10 @@ finalization
 end.
 {
   $Log$
-  Revision 1.1  2001-01-13 11:03:59  peter
+  Revision 1.2  2001-04-10 21:28:36  peter
+    * removed warnigns
+
+  Revision 1.1  2001/01/13 11:03:59  peter
     * API 2 RTL commit
 
 }