paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-10 22:06:08 +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.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 }
@ -768,7 +768,7 @@ var
procedure WriteChar(c:char); procedure WriteChar(c:char);
var var
Cell : TCharInfo; 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 } WritePos: TCoord; { Upper-left cell to write from }
DestRect: TSmallRect; DestRect: TSmallRect;
begin begin
@ -800,7 +800,7 @@ begin
DestRect.Right := (CurrX - 01) + 01; DestRect.Right := (CurrX - 01) + 01;
DestRect.Bottom := (CurrY - 01); DestRect.Bottom := (CurrY - 01);
WriteConsoleOutput(OutHandle, @Cell, BufSize, WritePos, DestRect); WriteConsoleOutput(OutHandle, Cell, BufSize, WritePos, @DestRect);
Inc(CurrX); Inc(CurrX);
end; { else } end; { else }
@ -989,7 +989,10 @@ begin
end. { unit Crt } end. { unit Crt }
{ {
$Log$ $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 + crt unit that compiles
} }