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

* fix cursor position for linux vcsa support

Browse Source
This commit is contained in:
pierre 2002-09-13 08:15:06 +00:00
parent beb6c868bd
commit f93b587cdb
1 changed files with 21 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
ide/fpusrscr.pas
View File

@ -22,6 +22,13 @@ uses
{$ifdef win32}
windows,
{$endif win32}
{$ifdef Unix}
{$ifdef VER1_0}
linux,
{$else}
unix,
{$endif}
{$endif}
video,Objects;
type
@ -122,6 +129,8 @@ type
ConsHeight, ConsWidth,
ConsCursorX, ConsCursorY : byte;
ConsVideoBufSize : longint;
ConsTio : termios;
ConsTioValid : boolean;
end;
{$endif}
@ -172,13 +181,6 @@ uses
{$ifdef GO32V2}
,Dpmiexcp, Go32
{$endif}
{$ifdef Unix}
{$ifdef VER1_0}
,linux
{$else}
,unix
{$endif}
{$endif}
{$endif}
,Drivers,App
{$ifdef TEST_GRAPH_SWITCH}
@ -736,8 +738,8 @@ end;
procedure TLinuxScreen.GetCursorPos(var P: TPoint);
begin
P.X:=ConsCursorX;
P.Y:=ConsCursorY;
P.X:=ConsCursorX+1;
P.Y:=ConsCursorY+1;
end;
@ -788,6 +790,7 @@ begin
ConsCursorY:=0;
ConsVideoBuf:=nil;
end;
ConsTioValid:=TCGetAttr(1,ConsTio);
end;
@ -800,13 +803,15 @@ begin
end
else if (TTyfd<>-1) then
begin
fdSeek(TTYFd, 4, Seek_Set);
fdSeek(TTYFd, 2, Seek_Set);
fdWrite(TTYFd, ConsCursorX, sizeof(byte));
fdWrite(TTYFd, ConsCursorY, sizeof(byte));
fdWrite(TTYFd, ConsVideoBuf^,ConsVideoBufSize);
fdWrite(TTYFd, ConsCursorX, sizeof(word));
fdWrite(TTYFd, ConsCursorY, sizeof(word));
{ FreeMem(ConsVideoBuf,ConsVideoBufSize);
ConsVideoBuf:=nil; }
end;
If ConsTioValid then
TCSetAttr(1,TCSANOW,ConsTio);
end;
procedure TLinuxScreen.SwitchBackToIDEScreen;
@ -1221,7 +1226,10 @@ end;
end.
{
$Log$
Revision 1.19 2002-09-13 07:17:33 pierre
Revision 1.20 2002-09-13 08:15:06 pierre
* fix cursor position for linux vcsa support
Revision 1.19 2002/09/13 07:17:33 pierre
+ use vcsa for linux console
Revision 1.18 2002/09/07 21:04:42 carl