paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 21:51:42 +02:00
Code Issues Packages Projects Releases Wiki Activity

* removed warnigns

Browse Source
This commit is contained in:
peter 2001-04-10 21:28:36 +00:00
parent 277c7b4e2d
commit a5bfdff438
3 changed files with 16 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/win32/crt.pp
View File

@ -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

7
rtl/win32/mouse.pp
View File

@ -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

10
rtl/win32/video.pp
View File

@ -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
}