paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-09 23:46:00 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ now it REALLY compiles

Browse Source
This commit is contained in:
michael 1999-04-23 09:06:17 +00:00
parent be5b9b5f6e
commit f76519f41d
1 changed files with 10 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
rtl/win32/crt.pp
View File

@ -379,7 +379,7 @@ begin
DestCoor.X := WinMinX - 1;
DestCoor.Y := WinMinY - 1;
ScrollConsoleScreenBuffer(OutHandle, SrcRect, @ClipRect, DestCoor, CharInfo);
ScrollConsoleScreenBuffer(OutHandle, SrcRect, ClipRect, DestCoor, CharInfo);
Gotoxy(1,1);
end;
@ -399,7 +399,7 @@ Begin
Coord.X := X;
Coord.Y := Y;
FillConsoleOutputCharacter(OutHandle, CharInfo, WinMaxX - (X + 01), Coord, Temp);
FillConsoleOutputCharacter(OutHandle, CharInfo, WinMaxX - (X + 01), Coord, @Temp);
end;
@ -687,7 +687,7 @@ begin
DestCoor.Y := Y - 2;
ClipRect := SrcRect;
ScrollConsoleScreenBuffer(OutHandle, SrcRect, @ClipRect, DestCoor, CharInfo);
ScrollConsoleScreenBuffer(OutHandle, SrcRect, ClipRect, DestCoor, CharInfo);
end; { proc. RemoveLine }
@ -719,7 +719,7 @@ begin
DestCoor.Y := Y;
ClipRect := SrcRect;
ScrollConsoleScreenBuffer(OutHandle, SrcRect, @ClipRect, DestCoor, CharInfo);
ScrollConsoleScreenBuffer(OutHandle, SrcRect, ClipRect, DestCoor, CharInfo);
end; { proc. InsLine }
@ -768,7 +768,7 @@ var
procedure WriteChar(c:char);
var
Cell : TCharInfo;
BufSize : TCoord; { Column-row size of source buffer }
BufSize : Coord; { Column-row size of source buffer }
WritePos: TCoord; { Upper-left cell to write from }
DestRect: TSmallRect;
begin
@ -800,7 +800,7 @@ begin
DestRect.Right := (CurrX - 01) + 01;
DestRect.Bottom := (CurrY - 01);
WriteConsoleOutput(OutHandle, @Cell, BufSize, WritePos, DestRect);
WriteConsoleOutput(OutHandle, Cell, BufSize, WritePos, @DestRect);
Inc(CurrX);
end; { else }
@ -989,7 +989,10 @@ begin
end. { unit Crt }
{
$Log$
Revision 1.2 1999-04-20 11:34:12 peter
Revision 1.3 1999-04-23 09:06:17 michael
+ now it REALLY compiles
Revision 1.2 1999/04/20 11:34:12 peter
+ crt unit that compiles
}