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

* code cleanup

Browse Source
This commit is contained in:
armin 2005-01-10 23:34:09 +00:00
parent 26b56d31ce
commit cc30f344ea
1 changed files with 7 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
rtl/netwlibc/video.pp
View File

@ -1,7 +1,7 @@
{
$Id$
This file is part of the Free Pascal run time library.
Copyright (c) 2004 by Armin Diehl
Copyright (c) 2005 by Armin Diehl
member of the Free Pascal development team
Video unit for netware libc
@ -71,18 +71,6 @@ begin
GetOutputCursorPosition(ScreenHandle,y,x);
CursorX := x;
CursorY := y;
(* done in video.inc
{ allocate back buffer }
MaxVideoBufSize:= ScreenWidth * ScreenHeight * 2;
VideoBufSize := ScreenWidth * ScreenHeight * 2;
GetMem(VideoBuf,MaxVideoBufSize);
GetMem(OldVideoBuf,MaxVideoBufSize);
*)
{grab current screen contents}
// Libc.SaveFullScreen (ScreenHandle,VideoBuf);
// Move (VideoBuf^, OldVideoBuf^, MaxVideoBufSize);
// LockUpdateScreen := 0;
SysSetCursorType (crBlock);
end;
@ -115,7 +103,6 @@ begin
end;
Libc.GetCursorStyle (ScreenHandle,style);
case style of
//CURSOR_NORMAL : SysGetCursorType := crUnderline;
CURSOR_THICK : SysGetCursorType := crBlock;
CURSOR_BLOCK : SysGetCursorType := crBlock;
CURSOR_TOP : SysGetCursorType := crHalfBlock
@ -127,13 +114,8 @@ end;
procedure SysUpdateScreen(Force: Boolean);
begin
{$ifdef debug}
if VideoBuf = nil then
begin
__ConsolePrintf ('Fatal: Video buff accessed after DoneVideo');
exit;
end;
{$endif}
if (LockUpdateScreen<>0) or (VideoBufSize = 0) then
exit;
if not force then
@ -175,7 +157,6 @@ begin
end;
Function SysGetVideoModeCount : Word;
begin
SysGetVideoModeCount:=SysVideoModeCount;
end;
@ -204,3 +185,9 @@ initialization
SetVideoDriver (SysVideoDriver);
end.
{
$Log$
Revision 1.4 2005-01-10 23:34:09 armin
* code cleanup
}