From a5bfdff438ae88803f5a9ec3b0b11c1fd80ff71a Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Tue, 10 Apr 2001 21:28:36 +0000
Subject: [PATCH]   * removed warnigns

---
 rtl/win32/crt.pp   |  7 +++++--
 rtl/win32/mouse.pp |  7 ++++---
 rtl/win32/video.pp | 10 +++++++---
 3 files changed, 16 insertions(+), 8 deletions(-)

diff --git a/rtl/win32/crt.pp b/rtl/win32/crt.pp
index cf1bf2170b..6f0a58e9ac 100644
--- a/rtl/win32/crt.pp
+++ b/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
diff --git a/rtl/win32/mouse.pp b/rtl/win32/mouse.pp
index f40667f31d..c91ee24164 100644
--- a/rtl/win32/mouse.pp
+++ b/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
diff --git a/rtl/win32/video.pp b/rtl/win32/video.pp
index 2669eaf4c3..07501999ee 100644
--- a/rtl/win32/video.pp
+++ b/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
 
 }