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

* TVioCursorInfo enhanced, VioScroll* updated

Browse Source
This commit is contained in:
Tomas Hajny 2000-09-24 21:21:28 +00:00
parent 5218af7926
commit 6147aeb83d
1 changed files with 45 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

52
rtl/os2/viocalls.pas
View File

@ -5,7 +5,7 @@
VIOCALLS interface unit VIOCALLS interface unit
Free Pascal Runtime Library for OS/2 Free Pascal Runtime Library for OS/2
Copyright (c) 1999-2000 by Florian Kl„mpfl Copyright (c) 1999-2000 by Florian Klaempfl
Copyright (c) 1999-2000 by Daniel Mantione Copyright (c) 1999-2000 by Daniel Mantione
Copyright (c) 1999-2000 by Tomas Hajny Copyright (c) 1999-2000 by Tomas Hajny
@ -50,6 +50,8 @@ Changelog:
Date: Description of change: Changed by: Date: Description of change: Changed by:
- First released version 0.50 TH - First released version 0.50 TH
00/09/24 TVioCursorInfo definition extended,
new names for VioScroll* added TH
Coding style: Coding style:
@ -357,17 +359,26 @@ type
end; end;
PQWord=^TQWord; PQWord=^TQWord;
{record type for VioSetCurType/VioGetCurType} {Record type for VioSetCurType/VioGetCurType; the second variant makes the use
of percentage-based (negative) and hidden cursor type (-1) specification
a bit easier}
TVioCursorInfo=record TVioCursorInfo=record
yStart:word; {Cursor start scan line (0-based)} case boolean of
cEnd:word; {Cursor end scan line} false:(
yStart:word; {Cursor start (top) scan line (0-based)}
cEnd:word; {Cursor end (bottom) scan line}
cx:word; {Cursor width (0=default width)} cx:word; {Cursor width (0=default width)}
Attr:word; {Cursor colour attribute (-1=hidden)} Attr:word); {Cursor colour attribute (-1=hidden)}
true:(
yStartInt: integer;
cEndInt:integer;
cxInt:integer;
AttrInt:integer);
end; end;
PVioCursorInfo=^TVioCursorInfo; PVioCursorInfo=^TVioCursorInfo;
VioCursorInfo=TVioCursorInfo; VioCursorInfo=TVioCursorInfo;
{record type for VioSetMode/GetMode} {Record type for VioSetMode/GetMode}
TVioModeInfo=record TVioModeInfo=record
cb:word; {Size of the record} cb:word; {Size of the record}
case boolean of case boolean of
@ -656,15 +667,24 @@ function VioWrtCharStr(CharStr:pointer;Len,Row,Column,VioHandle:word):word;
function VioScrollDn(TopRow,LeftCol,BotRow,RightCol,Lines:word;var Cell:word; function VioScrollDn(TopRow,LeftCol,BotRow,RightCol,Lines:word;var Cell:word;
VioHandle:word):word; cdecl; VioHandle:word):word; cdecl;
function VioScrollDown(TopRow,LeftCol,BotRow,RightCol,Lines:word;var Cell:word;
VioHandle:word):word; cdecl;
function VioScrollUp(TopRow,LeftCol,BotRow,RightCol,Lines:word;var Cell:word; function VioScrollUp(TopRow,LeftCol,BotRow,RightCol,Lines:word;var Cell:word;
VioHandle:word):word; cdecl; VioHandle:word):word; cdecl;
function VioScrollLf(TopRow,LeftCol,BotRow,RightCol,Col:word;var Cell:word; function VioScrollLf(TopRow,LeftCol,BotRow,RightCol,Col:word;var Cell:word;
VioHandle:word):word; cdecl; VioHandle:word):word; cdecl;
function VioScrollLeft(TopRow,LeftCol,BotRow,RightCol,Col:word;var Cell:word;
VioHandle:word):word; cdecl;
function VioScrollRt(TopRow,LeftCol,BotRow,RightCol,Col:word;var Cell:word; function VioScrollRt(TopRow,LeftCol,BotRow,RightCol,Col:word;var Cell:word;
VioHandle:word):word; cdecl; VioHandle:word):word; cdecl;
function VioScrollRight(TopRow,LeftCol,BotRow,RightCol,Col:word;var Cell:word;
VioHandle:word):word; cdecl;
function VioWrtNAttr(var Attr:byte;Times,Row,Column,VioHandle:word):word; function VioWrtNAttr(var Attr:byte;Times,Row,Column,VioHandle:word):word;
cdecl; cdecl;
@ -889,6 +909,11 @@ function VioScrollDn(TopRow,LeftCol,BotRow,RightCol,Lines:word;var Cell:word;
external 'EMXWRAP' index 147; external 'EMXWRAP' index 147;
{external 'VIOCALLS' index 47;} {external 'VIOCALLS' index 47;}
function VioScrollDown(TopRow,LeftCol,BotRow,RightCol,Lines:word;var Cell:word;
VioHandle:word):word; cdecl;
external 'EMXWRAP' index 147;
{external 'VIOCALLS' index 47;}
function VioScrollUp(TopRow,LeftCol,BotRow,RightCol,Lines:word;var Cell:word; function VioScrollUp(TopRow,LeftCol,BotRow,RightCol,Lines:word;var Cell:word;
VioHandle:word):word; cdecl; VioHandle:word):word; cdecl;
external 'EMXWRAP' index 107; external 'EMXWRAP' index 107;
@ -899,11 +924,21 @@ function VioScrollLf(TopRow,LeftCol,BotRow,RightCol,Col:word;var Cell:word;
external 'EMXWRAP' index 144; external 'EMXWRAP' index 144;
{external 'VIOCALLS' index 44;} {external 'VIOCALLS' index 44;}
function VioScrollLeft(TopRow,LeftCol,BotRow,RightCol,Col:word;var Cell:word;
VioHandle:word):word; cdecl;
external 'EMXWRAP' index 144;
{external 'VIOCALLS' index 44;}
function VioScrollRt(TopRow,LeftCol,BotRow,RightCol,Col:word;var Cell:word; function VioScrollRt(TopRow,LeftCol,BotRow,RightCol,Col:word;var Cell:word;
VioHandle:word):word; cdecl; VioHandle:word):word; cdecl;
external 'EMXWRAP' index 112; external 'EMXWRAP' index 112;
{external 'VIOCALLS' index 12;} {external 'VIOCALLS' index 12;}
function VioScrollRight(TopRow,LeftCol,BotRow,RightCol,Col:word;var Cell:word;
VioHandle:word):word; cdecl;
external 'EMXWRAP' index 112;
{external 'VIOCALLS' index 12;}
function VioWrtNAttr(var Attr:byte;Times,Row,Column,VioHandle:word):word; function VioWrtNAttr(var Attr:byte;Times,Row,Column,VioHandle:word):word;
cdecl; cdecl;
external 'EMXWRAP' index 126; external 'EMXWRAP' index 126;
@ -1115,7 +1150,10 @@ end.
{ {
$Log$ $Log$
Revision 1.1 2000-07-13 06:31:07 michael Revision 1.2 2000-09-24 21:21:28 hajny
* TVioCursorInfo enhanced, VioScroll* updated
Revision 1.1 2000/07/13 06:31:07 michael
+ Initial import + Initial import
Revision 1.7 2000/01/09 21:01:59 hajny Revision 1.7 2000/01/09 21:01:59 hajny