paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-30 00:31:33 +01:00
Code Issues Packages Projects Releases Wiki Activity

+ Fixed some compiling errors

Browse Source
This commit is contained in:
michael 1999-04-30 11:34:27 +00:00
parent 485da7b4c3
commit f7650f0e9a
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
rtl/win32/crt.pp
View File

@ -379,7 +379,7 @@ begin
DestCoor.X := WinMinX - 1; DestCoor.X := WinMinX - 1;
DestCoor.Y := WinMinY - 1; DestCoor.Y := WinMinY - 1;
ScrollConsoleScreenBuffer(OutHandle, SrcRect, ClipRect, DestCoor, CharInfo); ScrollConsoleScreenBuffer(OutHandle, SrcRect, @ClipRect, DestCoor, CharInfo);
Gotoxy(1,1); Gotoxy(1,1);
end; end;
@ -399,7 +399,7 @@ Begin
Coord.X := X; Coord.X := X;
Coord.Y := Y; Coord.Y := Y;
FillConsoleOutputCharacter(OutHandle, CharInfo, WinMaxX - (X + 01), Coord, @Temp); FillConsoleOutputCharacter(OutHandle, CharInfo, WinMaxX - (X + 01), Coord, Temp);
end; end;
@ -687,7 +687,7 @@ begin
DestCoor.Y := Y - 2; DestCoor.Y := Y - 2;
ClipRect := SrcRect; ClipRect := SrcRect;
ScrollConsoleScreenBuffer(OutHandle, SrcRect, ClipRect, DestCoor, CharInfo); ScrollConsoleScreenBuffer(OutHandle, SrcRect, @ClipRect, DestCoor, CharInfo);
end; { proc. RemoveLine } end; { proc. RemoveLine }
@ -719,7 +719,7 @@ begin
DestCoor.Y := Y; DestCoor.Y := Y;
ClipRect := SrcRect; ClipRect := SrcRect;
ScrollConsoleScreenBuffer(OutHandle, SrcRect, ClipRect, DestCoor, CharInfo); ScrollConsoleScreenBuffer(OutHandle, SrcRect, @ClipRect, DestCoor, CharInfo);
end; { proc. InsLine } end; { proc. InsLine }
@ -989,7 +989,10 @@ begin
end. { unit Crt } end. { unit Crt }
{ {
$Log$ $Log$
Revision 1.3 1999-04-23 09:06:17 michael Revision 1.4 1999-04-30 11:34:27 michael
+ Fixed some compiling errors
Revision 1.3 1999/04/23 09:06:17 michael
+ now it REALLY compiles + now it REALLY compiles
Revision 1.2 1999/04/20 11:34:12 peter Revision 1.2 1999/04/20 11:34:12 peter