paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 19:49:09 +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$ $Id$
This file is part of the Free Pascal run time library. 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 member of the Free Pascal development team
Video unit for netware libc Video unit for netware libc
@ -71,18 +71,6 @@ begin
GetOutputCursorPosition(ScreenHandle,y,x); GetOutputCursorPosition(ScreenHandle,y,x);
CursorX := x; CursorX := x;
CursorY := y; 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); SysSetCursorType (crBlock);
end; end;
@ -115,7 +103,6 @@ begin
end; end;
Libc.GetCursorStyle (ScreenHandle,style); Libc.GetCursorStyle (ScreenHandle,style);
case style of case style of
//CURSOR_NORMAL : SysGetCursorType := crUnderline;
CURSOR_THICK : SysGetCursorType := crBlock; CURSOR_THICK : SysGetCursorType := crBlock;
CURSOR_BLOCK : SysGetCursorType := crBlock; CURSOR_BLOCK : SysGetCursorType := crBlock;
CURSOR_TOP : SysGetCursorType := crHalfBlock CURSOR_TOP : SysGetCursorType := crHalfBlock
@ -127,13 +114,8 @@ end;
procedure SysUpdateScreen(Force: Boolean); procedure SysUpdateScreen(Force: Boolean);
begin begin
{$ifdef debug}
if VideoBuf = nil then if VideoBuf = nil then
begin
__ConsolePrintf ('Fatal: Video buff accessed after DoneVideo');
exit; exit;
end;
{$endif}
if (LockUpdateScreen<>0) or (VideoBufSize = 0) then if (LockUpdateScreen<>0) or (VideoBufSize = 0) then
exit; exit;
if not force then if not force then
@ -175,7 +157,6 @@ begin
end; end;
Function SysGetVideoModeCount : Word; Function SysGetVideoModeCount : Word;
begin begin
SysGetVideoModeCount:=SysVideoModeCount; SysGetVideoModeCount:=SysVideoModeCount;
end; end;
@ -204,3 +185,9 @@ initialization
SetVideoDriver (SysVideoDriver); SetVideoDriver (SysVideoDriver);
end. end.
{
$Log$
Revision 1.4 2005-01-10 23:34:09 armin
* code cleanup
}