eric
/
mysticbbs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Yellow snow

This commit is contained in:
mysticbbs 2012-03-01 20:24:38 -05:00
parent 9338bf2915
commit 3bae11f13b
2 changed files with 1 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
mdl/m_output_crt.pas
View File

@ -310,8 +310,6 @@ Begin
SetTextAttr(OldAttr);
CursorXY (OldX, OldY);
BufFlush;
End;
Procedure TOutputCRT.WriteXYPipe (X, Y, Attr, Pad: Integer; Text: String);

22
mdl/m_output_windows.pas
View File

@ -588,7 +588,7 @@ Var
CountX : Byte;
CountY : Byte;
BufPos : Integer;
TempBuf : Array[1..SizeOf(TConsoleScreenRec) DIV 4] of LongInt Absolute Image.Data;
TempBuf : Array[1..SizeOf(TConsoleScreenRec) DIV 2] of LongInt Absolute Image.Data;
Begin
BufSize.X := Image.X2 - Image.X1 + 1;
BufSize.Y := Image.Y2 - Image.Y1 + 1;
@ -697,33 +697,13 @@ Begin
End;
Function TOutputWindows.ReadCharXY (X, Y: Byte) : Char;
//Var
// Coord : TCoord;
// WasRead : ULong;
Begin
// Coord.X := X;
// Coord.Y := Y - 1;
// should use buffer instead
// ReadConsoleOutputCharacter(ConOut, @Result, 1, Coord, WasRead);
Result := Buffer[Y][X].UnicodeChar;
End;
Function TOutputWindows.ReadAttrXY (X, Y: Byte) : Byte;
//Var
// Coord : TCoord;
// WasRead : ULong;
Begin
// Coord.X := X;
// Coord.Y := Y - 1;
// should use buffer instead
Result := Buffer[Y][X].Attributes;
// ReadConsoleOutputAttribute(ConOut, @Result, 1, Coord, WasRead);
End;
Procedure TOutputWindows.BufFlush;