paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 22:09:32 +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; function KeyPressed : boolean;
var var
nevents, nread, i: longint; nevents, nread: longint;
buf : TINPUTRECORD; buf : TINPUTRECORD;
AltKey: Boolean; AltKey: Boolean;
begin begin
@ -1006,7 +1006,10 @@ end. { unit Crt }
{ {
$Log$ $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 * fixed the repeat key bug introduced by my last patch
Revision 1.5 2000/12/15 13:16:30 jonas 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); procedure MouseEventHandler(var ir:INPUT_RECORD);
var var
dwRead : DWord;
i: longint;
e : TMouseEvent; e : TMouseEvent;
begin begin
@ -219,7 +217,10 @@ end;
end. end.
{ {
$Log$ $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) * slightly optimized event handling (merged)
Revision 1.1 2001/01/13 11:03:59 peter 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; function DefaultVideoModeSelector(const VideoMode: TVideoMode; Params: Longint): Boolean;
begin begin
DefaultVideoModeSelector:=true;
end; end;
@ -180,7 +181,7 @@ var
LineCounter, LineCounter,
ColCounter : Longint; ColCounter : Longint;
smallforce : boolean; smallforce : boolean;
{ (*
begin begin
if LockUpdateScreen<>0 then if LockUpdateScreen<>0 then
exit; exit;
@ -230,7 +231,7 @@ begin
move(VideoBuf^,OldVideoBuf^,VideoBufSize); move(VideoBuf^,OldVideoBuf^,VideoBufSize);
end; end;
end; end;
} *)
var var
x1,y1,x2,y2 : longint; x1,y1,x2,y2 : longint;
@ -351,7 +352,10 @@ finalization
end. end.
{ {
$Log$ $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 * API 2 RTL commit
} }