|
|
@@ -1,10 +1,9 @@
|
|
|
-{
|
|
|
- $Id$
|
|
|
+unit ncurses;
|
|
|
+
|
|
|
+{ Unit to access the ncurses library
|
|
|
Copyright (c) 1998 by Michael Van Canneyt
|
|
|
member of the Free Pascal development team
|
|
|
|
|
|
- Unit to access the ncurses library
|
|
|
-
|
|
|
See the file COPYING.FPC included in this distribution,
|
|
|
for details about the copyright.
|
|
|
|
|
|
@@ -13,38 +12,52 @@
|
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
|
|
|
|
|
|
**********************************************************************}
|
|
|
-
|
|
|
{
|
|
|
- Many thanks to Ken Wright for his patches !
|
|
|
+ Many thanks to Ken Wright for his patches !!
|
|
|
}
|
|
|
-unit ncurses;
|
|
|
-interface
|
|
|
+ interface
|
|
|
|
|
|
-{$packrecords C}
|
|
|
+{$packrecords 4}
|
|
|
{$linklib ncurses}
|
|
|
{$linklib c}
|
|
|
|
|
|
-{ Manually Added types }
|
|
|
-Type
|
|
|
- Bool = byte;
|
|
|
- PINTEGER = ^Longint;
|
|
|
- PLongint = ^ longint;
|
|
|
- PFILE = pointer;
|
|
|
-
|
|
|
-const
|
|
|
- NCURSES_VERSION_MAJOR = 5;
|
|
|
- NCURSES_VERSION_MINOR = 0;
|
|
|
- NCURSES_VERSION_PATCH = 19991023;
|
|
|
- NCURSES_VERSION = '5.0';
|
|
|
-
|
|
|
-type
|
|
|
- chtype = longint;
|
|
|
- pchtype = pchar;
|
|
|
-
|
|
|
-const
|
|
|
- CXX_BUILTIN_BOOL = 1;
|
|
|
-type
|
|
|
- CXX_TYPE_OF_BOOL = char;
|
|
|
+ { Manually Added types }
|
|
|
+ Type
|
|
|
+
|
|
|
+ Bool = byte;
|
|
|
+ PINTEGER = ^Longint;
|
|
|
+ PLongint = ^ longint;
|
|
|
+ PFILE = pointer;
|
|
|
+
|
|
|
+ const
|
|
|
+ NCURSES_VERSION_MAJOR = 3;
|
|
|
+ NCURSES_VERSION_MINOR = 0;
|
|
|
+ NCURSES_VERSION_PATCH = 980228;
|
|
|
+ NCURSES_VERSION = '3.0';
|
|
|
+ {
|
|
|
+ #ifdef NCURSES_NOMACROS
|
|
|
+ #define NCURSES_ATTR_T attr_t
|
|
|
+ #endif
|
|
|
+
|
|
|
+ #ifndef NCURSES_ATTR_T
|
|
|
+ #define NCURSES_ATTR_T int
|
|
|
+ #endif
|
|
|
+
|
|
|
+ #ifndef NCURSES_CONST
|
|
|
+ #define NCURSES_CONST
|
|
|
+ #endif
|
|
|
+ }
|
|
|
+
|
|
|
+ type
|
|
|
+
|
|
|
+ chtype = longint;
|
|
|
+ pchtype = pchar;
|
|
|
+
|
|
|
+ const
|
|
|
+ CXX_BUILTIN_BOOL = 1;
|
|
|
+ type
|
|
|
+
|
|
|
+ CXX_TYPE_OF_BOOL = char;
|
|
|
|
|
|
Var
|
|
|
COLORS : longint;external name 'COLORS';
|
|
|
@@ -78,8 +91,8 @@ Var
|
|
|
function ACS_HLINE : chtype;
|
|
|
function ACS_VLINE : chtype;
|
|
|
function ACS_PLUS : chtype;
|
|
|
- function ACS_S1 : chtype;
|
|
|
- function ACS_S9 : chtype;
|
|
|
+ function ACS_S1 : chtype;
|
|
|
+ function ACS_S9 : chtype;
|
|
|
function ACS_DIAMOND : chtype;
|
|
|
function ACS_CKBOARD : chtype;
|
|
|
function ACS_DEGREE : chtype;
|
|
|
@@ -92,11 +105,11 @@ Var
|
|
|
function ACS_BOARD : chtype;
|
|
|
function ACS_LANTERN : chtype;
|
|
|
function ACS_BLOCK : chtype;
|
|
|
- function ACS_S3 : chtype;
|
|
|
- function ACS_S7 : chtype;
|
|
|
+ function ACS_S3 : chtype;
|
|
|
+ function ACS_S7 : chtype;
|
|
|
function ACS_LEQUAL : chtype;
|
|
|
function ACS_GEQUAL : chtype;
|
|
|
- function ACS_PI : chtype;
|
|
|
+ function ACS_PI : chtype;
|
|
|
function ACS_NEQUAL : chtype;
|
|
|
function ACS_STERLING : chtype;
|
|
|
{
|
|
|
@@ -106,17 +119,17 @@ Var
|
|
|
here only uses B and S.
|
|
|
}
|
|
|
{
|
|
|
- #define ACS_BSSB ACS_ULCORNER
|
|
|
- #define ACS_SSBB ACS_LLCORNER
|
|
|
- #define ACS_BBSS ACS_URCORNER
|
|
|
- #define ACS_SBBS ACS_LRCORNER
|
|
|
- #define ACS_SBSS ACS_RTEE
|
|
|
- #define ACS_SSSB ACS_LTEE
|
|
|
- #define ACS_SSBS ACS_BTEE
|
|
|
- #define ACS_BSSS ACS_TTEE
|
|
|
- #define ACS_BSBS ACS_HLINE
|
|
|
- #define ACS_SBSB ACS_VLINE
|
|
|
- #define ACS_SSSS ACS_PLUS
|
|
|
+ #define ACS_BSSB ACS_ULCORNER
|
|
|
+ #define ACS_SSBB ACS_LLCORNER
|
|
|
+ #define ACS_BBSS ACS_URCORNER
|
|
|
+ #define ACS_SBBS ACS_LRCORNER
|
|
|
+ #define ACS_SBSS ACS_RTEE
|
|
|
+ #define ACS_SSSB ACS_LTEE
|
|
|
+ #define ACS_SSBS ACS_BTEE
|
|
|
+ #define ACS_BSSS ACS_TTEE
|
|
|
+ #define ACS_BSBS ACS_HLINE
|
|
|
+ #define ACS_SBSB ACS_VLINE
|
|
|
+ #define ACS_SSSS ACS_PLUS
|
|
|
}
|
|
|
Const
|
|
|
ERR = -(1);
|
|
|
@@ -202,223 +215,223 @@ Var
|
|
|
COLS : longint;external name 'COLS';
|
|
|
TABSIZE : longint;external name 'TABSIZE';
|
|
|
|
|
|
- Function define_key(_para1:pchar; _para2:longint):longint; cdecl;external;
|
|
|
- Function keyok(_para1:longint; _para2:bool):longint; cdecl;external;
|
|
|
- Function resizeterm(_para1:longint; _para2:longint):longint; cdecl;external;
|
|
|
- Function use_default_colors:longint; cdecl;external;
|
|
|
- Function wresize(_para1:pWINDOW; _para2:longint; _para3:longint):longint; cdecl;external;
|
|
|
+ Function define_key(_para1:pchar; _para2:longint):longint; cdecl;
|
|
|
+ Function keyok(_para1:longint; _para2:bool):longint; cdecl;
|
|
|
+ Function resizeterm(_para1:longint; _para2:longint):longint; cdecl;
|
|
|
+ Function use_default_colors:longint; cdecl;
|
|
|
+ Function wresize(_para1:pWINDOW; _para2:longint; _para3:longint):longint; cdecl;
|
|
|
{
|
|
|
- extern char ttytype[];
|
|
|
+ extern char ttytype[];
|
|
|
}
|
|
|
- Function baudrate:longint; cdecl;external;
|
|
|
- Function beep:longint; cdecl;external;
|
|
|
- Function can_change_color:bool; cdecl;external;
|
|
|
- Function cbreak:longint; cdecl;external;
|
|
|
- Function clearok(_para1:pWINDOW; _para2:bool):longint; cdecl;external;
|
|
|
- Function color_content(_para1:longint; _para2:plongint; _para3:plongint; _para4:plongint):longint; cdecl;external;
|
|
|
+ Function baudrate:longint; cdecl;
|
|
|
+ Function beep:longint; cdecl;
|
|
|
+ Function can_change_color:bool; cdecl;
|
|
|
+ Function cbreak:longint; cdecl;
|
|
|
+ Function clearok(_para1:pWINDOW; _para2:bool):longint; cdecl;
|
|
|
+ Function color_content(_para1:longint; _para2:plongint; _para3:plongint; _para4:plongint):longint; cdecl;
|
|
|
|
|
|
Function copywin(_para1:pWINDOW; _para2:pWINDOW; _para3:longint; _para4:longint; _para5:longint;
|
|
|
- _para6:longint; _para7:longint; _para8:longint; _para9:longint):longint;cdecl;external;
|
|
|
- Function curs_set(_para1:longint):longint; cdecl;external;
|
|
|
- Function def_prog_mode:longint; cdecl;external;
|
|
|
- Function def_shell_mode:longint; cdecl;external;
|
|
|
- Function delay_output(_para1:longint):longint; cdecl;external;
|
|
|
- procedure delscreen(_para1:pSCREEN);cdecl;external;
|
|
|
- Function delwin(_para1:pWINDOW):longint; cdecl;external;
|
|
|
-
|
|
|
- Function doupdate:longint; cdecl;external;
|
|
|
-
|
|
|
- Function echo:longint; cdecl;external;
|
|
|
- Function endwin:longint; cdecl;external;
|
|
|
- Function erasechar:char; cdecl;external;
|
|
|
- procedure filter;cdecl;external;
|
|
|
- Function flash:longint; cdecl;external;
|
|
|
- Function flushinp:longint; cdecl;external;
|
|
|
-
|
|
|
- Function halfdelay(_para1:longint):longint; cdecl;external;
|
|
|
- Function has_colors:bool; cdecl;external;
|
|
|
- Function has_ic:longint; cdecl;external;
|
|
|
- Function has_il:longint; cdecl;external;
|
|
|
- procedure idcok(_para1:pWINDOW; _para2:bool);cdecl;external;
|
|
|
- Function idlok(_para1:pWINDOW; _para2:bool):longint; cdecl;external;
|
|
|
- procedure immedok(_para1:pWINDOW; _para2:bool);cdecl;external;
|
|
|
-
|
|
|
- Function init_color(_para1:longint; _para2:longint; _para3:longint; _para4:longint):longint; cdecl;external;
|
|
|
- Function init_pair(_para1:longint; _para2:longint; _para3:longint):longint; cdecl;external;
|
|
|
- Function intrflush(_para1:pWINDOW; _para2:bool):longint; cdecl;external;
|
|
|
- Function isendwin:longint; cdecl;external;
|
|
|
- Function is_linetouched(_para1:pWINDOW; _para2:longint):longint; cdecl;external;
|
|
|
- Function is_wintouched(_para1:pWINDOW):longint; cdecl;external;
|
|
|
-
|
|
|
-
|
|
|
- Function keypad(_para1:pWINDOW; _para2:bool):longint; cdecl;external;
|
|
|
- Function killchar:char; cdecl;external;
|
|
|
- Function leaveok(_para1:pWINDOW; _para2:bool):longint; cdecl;external;
|
|
|
-
|
|
|
- Function meta(_para1:pWINDOW; _para2:bool):longint; cdecl;external;
|
|
|
- Function mvcur(_para1:longint; _para2:longint; _para3:longint; _para4:longint):longint; cdecl;external;
|
|
|
- Function mvderwin(_para1:pWINDOW; _para2:longint; _para3:longint):longint; cdecl;external;
|
|
|
+ _para6:longint; _para7:longint; _para8:longint; _para9:longint):longint;cdecl;
|
|
|
+ Function curs_set(_para1:longint):longint; cdecl;
|
|
|
+ Function def_prog_mode:longint; cdecl;
|
|
|
+ Function def_shell_mode:longint; cdecl;
|
|
|
+ Function delay_output(_para1:longint):longint; cdecl;
|
|
|
+ procedure delscreen(_para1:pSCREEN);cdecl;
|
|
|
+ Function delwin(_para1:pWINDOW):longint; cdecl;
|
|
|
+
|
|
|
+ Function doupdate:longint; cdecl;
|
|
|
+
|
|
|
+ Function echo:longint; cdecl;
|
|
|
+ Function endwin:longint; cdecl;
|
|
|
+ Function erasechar:char; cdecl;
|
|
|
+ procedure filter;cdecl;
|
|
|
+ Function flash:longint; cdecl;
|
|
|
+ Function flushinp:longint; cdecl;
|
|
|
+
|
|
|
+ Function halfdelay(_para1:longint):longint; cdecl;
|
|
|
+ Function has_colors:bool; cdecl;
|
|
|
+ Function has_ic:longint; cdecl;
|
|
|
+ Function has_il:longint; cdecl;
|
|
|
+ procedure idcok(_para1:pWINDOW; _para2:bool);cdecl;
|
|
|
+ Function idlok(_para1:pWINDOW; _para2:bool):longint; cdecl;
|
|
|
+ procedure immedok(_para1:pWINDOW; _para2:bool);cdecl;
|
|
|
+
|
|
|
+ Function init_color(_para1:longint; _para2:longint; _para3:longint; _para4:longint):longint; cdecl;
|
|
|
+ Function init_pair(_para1:longint; _para2:longint; _para3:longint):longint; cdecl;
|
|
|
+ Function intrflush(_para1:pWINDOW; _para2:bool):longint; cdecl;
|
|
|
+ Function isendwin:longint; cdecl;
|
|
|
+ Function is_linetouched(_para1:pWINDOW; _para2:longint):longint; cdecl;
|
|
|
+ Function is_wintouched(_para1:pWINDOW):longint; cdecl;
|
|
|
+
|
|
|
+
|
|
|
+ Function keypad(_para1:pWINDOW; _para2:bool):longint; cdecl;
|
|
|
+ Function killchar:char; cdecl;
|
|
|
+ Function leaveok(_para1:pWINDOW; _para2:bool):longint; cdecl;
|
|
|
+
|
|
|
+ Function meta(_para1:pWINDOW; _para2:bool):longint; cdecl;
|
|
|
+ Function mvcur(_para1:longint; _para2:longint; _para3:longint; _para4:longint):longint; cdecl;
|
|
|
+ Function mvderwin(_para1:pWINDOW; _para2:longint; _para3:longint):longint; cdecl;
|
|
|
{
|
|
|
- extern int mvprintw(int,int,const char ,...)
|
|
|
- GCC_PRINTFLIKE(3,4);
|
|
|
- extern int mvscanw(int,int,const char ,...)
|
|
|
- GCC_SCANFLIKE(3,4);
|
|
|
+ extern int mvprintw(int,int,const char ,...)
|
|
|
+ GCC_PRINTFLIKE(3,4);
|
|
|
+ extern int mvscanw(int,int,const char ,...)
|
|
|
+ GCC_SCANFLIKE(3,4);
|
|
|
}
|
|
|
- Function mvwin(_para1:pWINDOW; _para2:longint; _para3:longint):longint; cdecl;external;
|
|
|
+ Function mvwin(_para1:pWINDOW; _para2:longint; _para3:longint):longint; cdecl;
|
|
|
{
|
|
|
- extern int mvwprintw(WINDOW ,int,int,const char ,...)
|
|
|
- GCC_PRINTFLIKE(4,5);
|
|
|
- extern int mvwscanw(WINDOW ,int,int,const char ,...)
|
|
|
- GCC_SCANFLIKE(4,5);
|
|
|
+ extern int mvwprintw(WINDOW ,int,int,const char ,...)
|
|
|
+ GCC_PRINTFLIKE(4,5);
|
|
|
+ extern int mvwscanw(WINDOW ,int,int,const char ,...)
|
|
|
+ GCC_SCANFLIKE(4,5);
|
|
|
}
|
|
|
- Function napms(_para1:longint):longint; cdecl;external;
|
|
|
+ Function napms(_para1:longint):longint; cdecl;
|
|
|
|
|
|
- Function nl:longint; cdecl;external;
|
|
|
- Function nocbreak:longint; cdecl;external;
|
|
|
- Function nodelay(_para1:pWINDOW; _para2:bool):longint; cdecl;external;
|
|
|
- Function noecho:longint; cdecl;external;
|
|
|
- Function nonl:longint; cdecl;external;
|
|
|
- Function noqiflush:longint; cdecl;external;
|
|
|
- Function noraw:longint; cdecl;external;
|
|
|
- Function notimeout(_para1:pWINDOW; _para2:bool):longint; cdecl;external;
|
|
|
+ Function nl:longint; cdecl;
|
|
|
+ Function nocbreak:longint; cdecl;
|
|
|
+ Function nodelay(_para1:pWINDOW; _para2:bool):longint; cdecl;
|
|
|
+ Function noecho:longint; cdecl;
|
|
|
+ Function nonl:longint; cdecl;
|
|
|
+ Function noqiflush:longint; cdecl;
|
|
|
+ Function noraw:longint; cdecl;
|
|
|
+ Function notimeout(_para1:pWINDOW; _para2:bool):longint; cdecl;
|
|
|
|
|
|
- Function overlay(_para1:pWINDOW; _para2:pWINDOW):longint; cdecl;external;
|
|
|
+ Function overlay(_para1:pWINDOW; _para2:pWINDOW):longint; cdecl;
|
|
|
|
|
|
- Function overwrite(_para1:pWINDOW; _para2:pWINDOW):longint; cdecl;external;
|
|
|
- Function pair_content(_para1:longint; _para2:plongint; _para3:plongint):longint; cdecl;external;
|
|
|
+ Function overwrite(_para1:pWINDOW; _para2:pWINDOW):longint; cdecl;
|
|
|
+ Function pair_content(_para1:longint; _para2:plongint; _para3:plongint):longint; cdecl;
|
|
|
|
|
|
- Function pechochar(_para1:pWINDOW; _para2:chtype):longint; cdecl;external;
|
|
|
+ Function pechochar(_para1:pWINDOW; _para2:chtype):longint; cdecl;
|
|
|
Function pnoutrefresh(_para1:pWINDOW; _para2:longint; _para3:longint; _para4:longint; _para5:longint;
|
|
|
- _para6:longint; _para7:longint):longint;cdecl;external;
|
|
|
+ _para6:longint; _para7:longint):longint;cdecl;
|
|
|
Function prefresh(_para1:pWINDOW; _para2:longint; _para3:longint; _para4:longint; _para5:longint;
|
|
|
- _para6:longint; _para7:longint):longint;cdecl;external;
|
|
|
+ _para6:longint; _para7:longint):longint;cdecl;
|
|
|
{
|
|
|
- extern int printw(const char ,...)
|
|
|
- GCC_PRINTFLIKE(1,2);
|
|
|
+ extern int printw(const char ,...)
|
|
|
+ GCC_PRINTFLIKE(1,2);
|
|
|
}
|
|
|
- Function putp(_para1:pchar):longint; cdecl;external;
|
|
|
- Function putwin(_para1:pWINDOW; _para2:pFILE):longint; cdecl;external;
|
|
|
- Function qiflush:longint; cdecl;external;
|
|
|
- Function raw:longint; cdecl;external;
|
|
|
- Function resetty:longint; cdecl;external;
|
|
|
- Function reset_prog_mode:longint; cdecl;external;
|
|
|
- Function reset_shell_mode:longint; cdecl;external;
|
|
|
+ Function putp(_para1:pchar):longint; cdecl;
|
|
|
+ Function putwin(_para1:pWINDOW; _para2:pFILE):longint; cdecl;
|
|
|
+ Function qiflush:longint; cdecl;
|
|
|
+ Function raw:longint; cdecl;
|
|
|
+ Function resetty:longint; cdecl;
|
|
|
+ Function reset_prog_mode:longint; cdecl;
|
|
|
+ Function reset_shell_mode:longint; cdecl;
|
|
|
{
|
|
|
- Function ripoffline(_para1:longint; init:function (_para1:pWINDOW; _para2:longint):longint):longint; cdecl;external;
|
|
|
+ Function ripoffline(_para1:longint; init:function (_para1:pWINDOW; _para2:longint):longint):longint; cdecl;
|
|
|
}
|
|
|
- Function savetty:longint; cdecl;external;
|
|
|
+ Function savetty:longint; cdecl;
|
|
|
{
|
|
|
- extern int scanw(const char ,...)
|
|
|
- GCC_SCANFLIKE(1,2);
|
|
|
+ extern int scanw(const char ,...)
|
|
|
+ GCC_SCANFLIKE(1,2);
|
|
|
}
|
|
|
- Function scr_dump(_para1:pchar):longint; cdecl;external;
|
|
|
+ Function scr_dump(_para1:pchar):longint; cdecl;
|
|
|
|
|
|
- Function scr_init(_para1:pchar):longint; cdecl;external;
|
|
|
- Function scrollok(_para1:pWINDOW; _para2:bool):longint; cdecl;external;
|
|
|
+ Function scr_init(_para1:pchar):longint; cdecl;
|
|
|
+ Function scrollok(_para1:pWINDOW; _para2:bool):longint; cdecl;
|
|
|
|
|
|
- Function scr_restore(_para1:pchar):longint; cdecl;external;
|
|
|
+ Function scr_restore(_para1:pchar):longint; cdecl;
|
|
|
|
|
|
- Function scr_set(_para1:pchar):longint; cdecl;external;
|
|
|
+ Function scr_set(_para1:pchar):longint; cdecl;
|
|
|
|
|
|
|
|
|
- Function slk_attroff(_para1:attr_t):longint; cdecl;external;
|
|
|
+ Function slk_attroff(_para1:attr_t):longint; cdecl;
|
|
|
|
|
|
- Function slk_attron(_para1:attr_t):longint; cdecl;external;
|
|
|
+ Function slk_attron(_para1:attr_t):longint; cdecl;
|
|
|
|
|
|
- Function slk_attrset(_para1:attr_t):longint; cdecl;external;
|
|
|
- Function slk_attr:attr_t; cdecl;external;
|
|
|
- Function slk_clear:longint; cdecl;external;
|
|
|
- Function slk_init(_para1:longint):longint; cdecl;external;
|
|
|
+ Function slk_attrset(_para1:attr_t):longint; cdecl;
|
|
|
+ Function slk_attr:attr_t; cdecl;
|
|
|
+ Function slk_clear:longint; cdecl;
|
|
|
+ Function slk_init(_para1:longint):longint; cdecl;
|
|
|
|
|
|
- Function slk_noutrefresh:longint; cdecl;external;
|
|
|
- Function slk_refresh:longint; cdecl;external;
|
|
|
- Function slk_restore:longint; cdecl;external;
|
|
|
+ Function slk_noutrefresh:longint; cdecl;
|
|
|
+ Function slk_refresh:longint; cdecl;
|
|
|
+ Function slk_restore:longint; cdecl;
|
|
|
|
|
|
- Function slk_set(_para1:longint; _para2:pchar; _para3:longint):longint; cdecl;external;
|
|
|
- Function slk_touch:longint; cdecl;external;
|
|
|
- Function start_color:longint; cdecl;external;
|
|
|
+ Function slk_set(_para1:longint; _para2:pchar; _para3:longint):longint; cdecl;
|
|
|
+ Function slk_touch:longint; cdecl;
|
|
|
+ Function start_color:longint; cdecl;
|
|
|
|
|
|
- Function syncok(_para1:pWINDOW; _para2:bool):longint; cdecl;external;
|
|
|
- Function termattrs:chtype; cdecl;external;
|
|
|
+ Function syncok(_para1:pWINDOW; _para2:bool):longint; cdecl;
|
|
|
+ Function termattrs:chtype; cdecl;
|
|
|
|
|
|
- Function tigetflag(_para1:pchar):longint; cdecl;external;
|
|
|
+ Function tigetflag(_para1:pchar):longint; cdecl;
|
|
|
|
|
|
- Function tigetnum(_para1:pchar):longint; cdecl;external;
|
|
|
+ Function tigetnum(_para1:pchar):longint; cdecl;
|
|
|
|
|
|
- Function derwin (_para1:pWINDOW; _para2:longint; _para3:longint; _para4:longint; _para5:longint):PWINDOW; cdecl;external;
|
|
|
- Function dupwin (_para1:pWINDOW):PWINDOW; cdecl;external;
|
|
|
- Function getwin (_para1:pFILE):PWINDOW; cdecl;external;
|
|
|
- Function initscr :PWINDOW; cdecl;external;
|
|
|
- Function keyname (_para1:longint):pchar; cdecl;external;
|
|
|
- Function longname :pchar; cdecl;external;
|
|
|
- Function newpad (_para1:longint; _para2:longint):PWINDOW; cdecl;external;
|
|
|
- Function newterm (_para1:pchar; _para2:pFILE; _para3:pFILE):PSCREEN; cdecl;external;
|
|
|
- Function newwin (_para1:longint; _para2:longint; _para3:longint; _para4:longint):PWINDOW; cdecl;external;
|
|
|
- Function set_term (_para1:pSCREEN):PSCREEN; cdecl;external;
|
|
|
- Function slk_label (_para1:longint):pchar; cdecl;external;
|
|
|
- Function subpad (_para1:pWINDOW; _para2:longint; _para3:longint; _para4:longint; _para5:longint):PWINDOW; cdecl;external;
|
|
|
- Function subwin (_para1:pWINDOW; _para2:longint; _para3:longint; _para4:longint; _para5:longint):PWINDOW; cdecl;external;
|
|
|
- Function termname :pchar; cdecl;external;
|
|
|
- Function tigetstr (_para1:pchar):pchar; cdecl;external;
|
|
|
- Function typeahead(_para1:longint):longint; cdecl;external;
|
|
|
- Function ungetch(_para1:longint):longint; cdecl;external;
|
|
|
- procedure use_env(_para1:bool);cdecl;external;
|
|
|
- Function vidattr(_para1:chtype):longint; cdecl;external;
|
|
|
+ Function derwin (_para1:pWINDOW; _para2:longint; _para3:longint; _para4:longint; _para5:longint):PWINDOW; cdecl;
|
|
|
+ Function dupwin (_para1:pWINDOW):PWINDOW; cdecl;
|
|
|
+ Function getwin (_para1:pFILE):PWINDOW; cdecl;
|
|
|
+ Function initscr :PWINDOW; cdecl;
|
|
|
+ Function keyname (_para1:longint):pchar; cdecl;
|
|
|
+ Function longname :pchar; cdecl;
|
|
|
+ Function newpad (_para1:longint; _para2:longint):PWINDOW; cdecl;
|
|
|
+ Function newterm (_para1:pchar; _para2:pFILE; _para3:pFILE):PSCREEN; cdecl;
|
|
|
+ Function newwin (_para1:longint; _para2:longint; _para3:longint; _para4:longint):PWINDOW; cdecl;
|
|
|
+ Function set_term (_para1:pSCREEN):PSCREEN; cdecl;
|
|
|
+ Function slk_label (_para1:longint):pchar; cdecl;
|
|
|
+ Function subpad (_para1:pWINDOW; _para2:longint; _para3:longint; _para4:longint; _para5:longint):PWINDOW; cdecl;
|
|
|
+ Function subwin (_para1:pWINDOW; _para2:longint; _para3:longint; _para4:longint; _para5:longint):PWINDOW; cdecl;
|
|
|
+ Function termname :pchar; cdecl;
|
|
|
+ Function tigetstr (_para1:pchar):pchar; cdecl;
|
|
|
+ Function typeahead(_para1:longint):longint; cdecl;
|
|
|
+ Function ungetch(_para1:longint):longint; cdecl;
|
|
|
+ procedure use_env(_para1:bool);cdecl;
|
|
|
+ Function vidattr(_para1:chtype):longint; cdecl;
|
|
|
{
|
|
|
- Function vidputs(_para1:chtype; _para2:function (_para1:longint):longint):longint; cdecl;external;
|
|
|
+ Function vidputs(_para1:chtype; _para2:function (_para1:longint):longint):longint; cdecl;
|
|
|
}
|
|
|
{
|
|
|
- Function vwprintw(_para1:pWINDOW; _para2:pchar; _para3:va_list):longint; cdecl;external;
|
|
|
- Function vwscanw(_para1:pWINDOW; _para2:pchar; _para3:va_list):longint; cdecl;external;
|
|
|
+ Function vwprintw(_para1:pWINDOW; _para2:pchar; _para3:va_list):longint; cdecl;
|
|
|
+ Function vwscanw(_para1:pWINDOW; _para2:pchar; _para3:va_list):longint; cdecl;
|
|
|
}
|
|
|
- Function waddch(_para1:pWINDOW; _para2:chtype):longint; cdecl;external;
|
|
|
- Function waddchnstr(_para1:pWINDOW; _para2:pchtype; _para3:longint):longint; cdecl;external;
|
|
|
- Function waddnstr(_para1:pWINDOW; _para2:pchar; _para3:longint):longint; cdecl;external;
|
|
|
- Function wattr_on(_para1:pWINDOW; _para2:attr_t):longint; cdecl;external;
|
|
|
- Function wattr_off(_para1:pWINDOW; _para2:attr_t):longint; cdecl;external;
|
|
|
- Function wbkgd(_para1:pWINDOW; _para2:chtype):longint; cdecl;external;
|
|
|
- procedure wbkgdset(_para1:pWINDOW; _para2:chtype);cdecl;external;
|
|
|
+ Function waddch(_para1:pWINDOW; _para2:chtype):longint; cdecl;
|
|
|
+ Function waddchnstr(_para1:pWINDOW; _para2:pchtype; _para3:longint):longint; cdecl;
|
|
|
+ Function waddnstr(_para1:pWINDOW; _para2:pchar; _para3:longint):longint; cdecl;
|
|
|
+ Function wattr_on(_para1:pWINDOW; _para2:attr_t):longint; cdecl;
|
|
|
+ Function wattr_off(_para1:pWINDOW; _para2:attr_t):longint; cdecl;
|
|
|
+ Function wbkgd(_para1:pWINDOW; _para2:chtype):longint; cdecl;
|
|
|
+ procedure wbkgdset(_para1:pWINDOW; _para2:chtype);cdecl;
|
|
|
Function wborder(_para1:pWINDOW; _para2:chtype; _para3:chtype; _para4:chtype; _para5:chtype;
|
|
|
- _para6:chtype; _para7:chtype; _para8:chtype; _para9:chtype):longint;cdecl;external;
|
|
|
- Function wchgat(_para1:pWINDOW; _para2:longint; _para3:attr_t; _para4:longint; _para5:pointer):longint; cdecl;external;
|
|
|
- Function wclear(_para1:pWINDOW):longint; cdecl;external;
|
|
|
- Function wclrtobot(_para1:pWINDOW):longint; cdecl;external;
|
|
|
- Function wclrtoeol(_para1:pWINDOW):longint; cdecl;external;
|
|
|
- procedure wcursyncup(_para1:pWINDOW);cdecl;external;
|
|
|
- Function wdelch(_para1:pWINDOW):longint; cdecl;external;
|
|
|
- Function wechochar(_para1:pWINDOW; _para2:chtype):longint; cdecl;external;
|
|
|
- Function werase(_para1:pWINDOW):longint; cdecl;external;
|
|
|
- Function wgetch(_para1:pWINDOW):longint; cdecl;external;
|
|
|
- Function wgetnstr(_para1:pWINDOW; _para2:pchar; _para3:longint):longint; cdecl;external;
|
|
|
- Function whline(_para1:pWINDOW; _para2:chtype; _para3:longint):longint; cdecl;external;
|
|
|
+ _para6:chtype; _para7:chtype; _para8:chtype; _para9:chtype):longint;cdecl;
|
|
|
+ Function wchgat(_para1:pWINDOW; _para2:longint; _para3:attr_t; _para4:longint; _para5:pointer):longint; cdecl;
|
|
|
+ Function wclear(_para1:pWINDOW):longint; cdecl;
|
|
|
+ Function wclrtobot(_para1:pWINDOW):longint; cdecl;
|
|
|
+ Function wclrtoeol(_para1:pWINDOW):longint; cdecl;
|
|
|
+ procedure wcursyncup(_para1:pWINDOW);cdecl;
|
|
|
+ Function wdelch(_para1:pWINDOW):longint; cdecl;
|
|
|
+ Function wechochar(_para1:pWINDOW; _para2:chtype):longint; cdecl;
|
|
|
+ Function werase(_para1:pWINDOW):longint; cdecl;
|
|
|
+ Function wgetch(_para1:pWINDOW):longint; cdecl;
|
|
|
+ Function wgetnstr(_para1:pWINDOW; _para2:pchar; _para3:longint):longint; cdecl;
|
|
|
+ Function whline(_para1:pWINDOW; _para2:chtype; _para3:longint):longint; cdecl;
|
|
|
Function winch (win : PWindow) : longint;
|
|
|
- Function winchnstr(_para1:pWINDOW; _para2:pchtype; _para3:longint):longint; cdecl;external;
|
|
|
- Function winnstr(_para1:pWINDOW; _para2:pchar; _para3:longint):longint; cdecl;external;
|
|
|
- Function winsch(_para1:pWINDOW; _para2:chtype):longint; cdecl;external;
|
|
|
- Function winsdelln(_para1:pWINDOW; _para2:longint):longint; cdecl;external;
|
|
|
- Function winsnstr(_para1:pWINDOW; _para2:pchar; _para3:longint):longint; cdecl;external;
|
|
|
- Function wmove(_para1:pWINDOW; _para2:longint; _para3:longint):longint; cdecl;external;
|
|
|
- Function wnoutrefresh(_para1:pWINDOW):longint; cdecl;external;
|
|
|
+ Function winchnstr(_para1:pWINDOW; _para2:pchtype; _para3:longint):longint; cdecl;
|
|
|
+ Function winnstr(_para1:pWINDOW; _para2:pchar; _para3:longint):longint; cdecl;
|
|
|
+ Function winsch(_para1:pWINDOW; _para2:chtype):longint; cdecl;
|
|
|
+ Function winsdelln(_para1:pWINDOW; _para2:longint):longint; cdecl;
|
|
|
+ Function winsnstr(_para1:pWINDOW; _para2:pchar; _para3:longint):longint; cdecl;
|
|
|
+ Function wmove(_para1:pWINDOW; _para2:longint; _para3:longint):longint; cdecl;
|
|
|
+ Function wnoutrefresh(_para1:pWINDOW):longint; cdecl;
|
|
|
{
|
|
|
- extern int wprintw(WINDOW ,const char ,...)
|
|
|
- GCC_PRINTFLIKE(2,3);
|
|
|
+ extern int wprintw(WINDOW ,const char ,...)
|
|
|
+ GCC_PRINTFLIKE(2,3);
|
|
|
}
|
|
|
- Function wredrawln(_para1:pWINDOW; _para2:longint; _para3:longint):longint; cdecl;external;
|
|
|
- Function wrefresh(_para1:pWINDOW):longint; cdecl;external;
|
|
|
+ Function wredrawln(_para1:pWINDOW; _para2:longint; _para3:longint):longint; cdecl;
|
|
|
+ Function wrefresh(_para1:pWINDOW):longint; cdecl;
|
|
|
{
|
|
|
- extern int wscanw(WINDOW ,const char ,...)
|
|
|
- GCC_SCANFLIKE(2,3);
|
|
|
+ extern int wscanw(WINDOW ,const char ,...)
|
|
|
+ GCC_SCANFLIKE(2,3);
|
|
|
}
|
|
|
- Function wscrl(_para1:pWINDOW; _para2:longint):longint; cdecl;external;
|
|
|
- Function wsetscrreg(_para1:pWINDOW; _para2:longint; _para3:longint):longint; cdecl;external;
|
|
|
- procedure wsyncdown(_para1:pWINDOW);cdecl;external;
|
|
|
- procedure wsyncup(_para1:pWINDOW);cdecl;external;
|
|
|
- Function wtimeout(_para1:pWINDOW; _para2:longint):longint; cdecl;external;
|
|
|
- Function wtouchln(_para1:pWINDOW; _para2:longint; _para3:longint; _para4:longint):longint; cdecl;external;
|
|
|
- Function wvline(_para1:pWINDOW; _para2:chtype; _para3:longint):longint; cdecl;external;
|
|
|
+ Function wscrl(_para1:pWINDOW; _para2:longint):longint; cdecl;
|
|
|
+ Function wsetscrreg(_para1:pWINDOW; _para2:longint; _para3:longint):longint; cdecl;
|
|
|
+ procedure wsyncdown(_para1:pWINDOW);cdecl;
|
|
|
+ procedure wsyncup(_para1:pWINDOW);cdecl;
|
|
|
+ Function wtimeout(_para1:pWINDOW; _para2:longint):longint; cdecl;
|
|
|
+ Function wtouchln(_para1:pWINDOW; _para2:longint; _para3:longint; _para4:longint):longint; cdecl;
|
|
|
+ Function wvline(_para1:pWINDOW; _para2:chtype; _para3:longint):longint; cdecl;
|
|
|
Function mvwchgat(_para1:pWINDOW; _para2:longint; _para3:longint;
|
|
|
_para4:longint; _para5:longint; _para6:longint;
|
|
|
- _para7:longint):longint;cdecl;external;
|
|
|
+ _para7:longint):longint;Cdecl;
|
|
|
|
|
|
const
|
|
|
A_NORMAL = 0;
|
|
|
@@ -568,7 +581,7 @@ Var
|
|
|
function mvinchnstr(y,x : longint; s : pchar;n : longint) : longint;
|
|
|
function mvinchstr(y,x : longint; s : pchar) : longint;
|
|
|
function mvinnstr(y,x : longint; s : pchar;n : longint) : longint;
|
|
|
- function mvinsch(y,x: longint;c : chtype) : longint;
|
|
|
+ function mvinsch(y,x,c : longint) : longint;
|
|
|
function mvinsnstr(y,x : longint; s : pchar;n : longint) : longint;
|
|
|
function mvinsstr(y,x : longint; s : pchar) : longint;
|
|
|
function mvinstr(y,x : longint; s : pchar) : longint;
|
|
|
@@ -577,1105 +590,1151 @@ Var
|
|
|
function attr_off(a : longint) : longint;
|
|
|
function attr_on(a : longint) : longint;
|
|
|
function attr_set(a : longint) : longint;
|
|
|
+ function box_set(w : pwindow;v,h : longint) : longint;
|
|
|
function chgat(n,a,c,o : longint) : longint;
|
|
|
function getbkgd(win : pwindow) : longint;
|
|
|
+ function hline_set(c,n : longint) : longint;
|
|
|
function slk_attr_off(a : longint) : longint;
|
|
|
function slk_attr_on(a : longint) : longint;
|
|
|
function slk_attr_set(a : longint) : longint;
|
|
|
function vid_attr(a : longint) : longint;
|
|
|
+ function vline_set(c,n : longint) : longint;
|
|
|
function wattr_get(win : pwindow) : longint;
|
|
|
{
|
|
|
Pseudo-character tokens outside ASCII range. The curses wgetch() function
|
|
|
will return any given one of these only if the corresponding k- capability
|
|
|
is defined in your terminal's terminfo entry.
|
|
|
}
|
|
|
- const {octal}
|
|
|
- KEY_CODE_YES = 256; {0400}
|
|
|
- KEY_MIN = 257; {0401}
|
|
|
- KEY_BREAK = 257; {0401}
|
|
|
- KEY_DOWN = 258; {0402}
|
|
|
- KEY_UP = 259; {0403}
|
|
|
- KEY_LEFT = 260; {0404}
|
|
|
- KEY_RIGHT = 261; {0405}
|
|
|
- KEY_HOME = 262; {0406}
|
|
|
- KEY_BACKSPACE = 263; {0407}
|
|
|
- KEY_F0 = 264; {0410}
|
|
|
+ const {octal}
|
|
|
+ KEY_CODE_YES = 256; {0400}
|
|
|
+ KEY_MIN = 257; {0401}
|
|
|
+ KEY_BREAK = 257; {0401}
|
|
|
+ KEY_DOWN = 258; {0402}
|
|
|
+ KEY_UP = 259; {0403}
|
|
|
+ KEY_LEFT = 260; {0404}
|
|
|
+ KEY_RIGHT = 261; {0405}
|
|
|
+ KEY_HOME = 262; {0406}
|
|
|
+ KEY_BACKSPACE = 263; {0407}
|
|
|
+ KEY_F0 = 264; {0410}
|
|
|
function KEY_F(n : longint) : longint;
|
|
|
|
|
|
const
|
|
|
- KEY_DL = 328; {0510}
|
|
|
- KEY_IL = 329; {0511}
|
|
|
- KEY_DC = 330; {0512}
|
|
|
- KEY_IC = 331; {0513}
|
|
|
- KEY_EIC = 332; {0514}
|
|
|
- KEY_CLEAR = 333; {0515}
|
|
|
- KEY_EOS = 334; {0516}
|
|
|
- KEY_EOL = 335; {0517}
|
|
|
- KEY_SF = 336; {0520}
|
|
|
- KEY_SR = 337; {0521}
|
|
|
- KEY_NPAGE = 338; {0522}
|
|
|
- KEY_PPAGE = 339; {0523}
|
|
|
- KEY_STAB = 340; {0524}
|
|
|
- KEY_CTAB = 341; {0525}
|
|
|
- KEY_CATAB = 342; {0526}
|
|
|
- KEY_ENTER = 343; {0527}
|
|
|
- KEY_SRESET = 344; {0530}
|
|
|
- KEY_RESET = 345; {0531}
|
|
|
- KEY_PRINT = 346; {0532}
|
|
|
- KEY_LL = 347; {0533}
|
|
|
- KEY_A1 = 348; {0534}
|
|
|
- KEY_A3 = 349; {0535}
|
|
|
- KEY_B2 = 350; {0536}
|
|
|
- KEY_C1 = 351; {0537}
|
|
|
- KEY_C3 = 352; {0540}
|
|
|
- KEY_BTAB = 353; {0541}
|
|
|
- KEY_BEG = 354; {0542}
|
|
|
- KEY_CANCEL = 355; {0543}
|
|
|
- KEY_CLOSE = 356; {0544}
|
|
|
- KEY_COMMAND = 357; {0545}
|
|
|
- KEY_COPY = 358; {0546}
|
|
|
- KEY_CREATE = 359; {0547}
|
|
|
- KEY_END = 360; {0550}
|
|
|
- KEY_EXIT = 361; {0551}
|
|
|
- KEY_FIND = 362; {0552}
|
|
|
- KEY_HELP = 363; {0553}
|
|
|
- KEY_MARK = 364; {0554}
|
|
|
- KEY_MESSAGE = 365; {0555}
|
|
|
- KEY_MOVE = 366; {0556}
|
|
|
- KEY_NEXT = 367; {0557}
|
|
|
- KEY_OPEN = 368; {0560}
|
|
|
- KEY_OPTIONS = 369; {0561}
|
|
|
- KEY_PREVIOUS = 370; {0562}
|
|
|
- KEY_REDO = 371; {0563}
|
|
|
- KEY_REFERENCE = 372; {0564}
|
|
|
- KEY_REFRESH = 373; {0565}
|
|
|
- KEY_REPLACE = 374; {0566}
|
|
|
- KEY_RESTART = 375; {0567}
|
|
|
- KEY_RESUME = 376; {0570}
|
|
|
- KEY_SAVE = 377; {0571}
|
|
|
- KEY_SBEG = 378; {0572}
|
|
|
- KEY_SCANCEL = 379; {0573}
|
|
|
- KEY_SCOMMAND = 380; {0574}
|
|
|
- KEY_SCOPY = 381; {0575}
|
|
|
- KEY_SCREATE = 382; {0576}
|
|
|
- KEY_SDC = 383; {0577}
|
|
|
- KEY_SDL = 384; {0600}
|
|
|
- KEY_SELECT = 385; {0601}
|
|
|
- KEY_SEND = 386; {0602}
|
|
|
- KEY_SEOL = 387; {0603}
|
|
|
- KEY_SEXIT = 388; {0604}
|
|
|
- KEY_SFIND = 389; {0605}
|
|
|
- KEY_SHELP = 390; {0606}
|
|
|
- KEY_SHOME = 391; {0607}
|
|
|
- KEY_SIC = 392; {0610}
|
|
|
- KEY_SLEFT = 393; {0611}
|
|
|
- KEY_SMESSAGE = 394; {0612}
|
|
|
- KEY_SMOVE = 395; {0613}
|
|
|
- KEY_SNEXT = 396; {0614}
|
|
|
- KEY_SOPTIONS = 397; {0615}
|
|
|
- KEY_SPREVIOUS = 398; {0616}
|
|
|
- KEY_SPRINT = 399; {0617}
|
|
|
- KEY_SREDO = 400; {0620}
|
|
|
- KEY_SREPLACE = 401; {0621}
|
|
|
- KEY_SRIGHT = 402; {0622}
|
|
|
- KEY_SRSUME = 403; {0623}
|
|
|
- KEY_SSAVE = 404; {0624}
|
|
|
- KEY_SSUSPEND = 405; {0625}
|
|
|
- KEY_SUNDO = 406; {0626}
|
|
|
- KEY_SUSPEND = 407; {0627}
|
|
|
- KEY_UNDO = 408; {0630}
|
|
|
- KEY_MOUSE = 409; {0631}
|
|
|
- KEY_RESIZE = 410; {0632}
|
|
|
- KEY_MAX = 511; {0777}
|
|
|
-
|
|
|
- function mcprint(_para1:pchar; _para2:longint):longint;cdecl;external;
|
|
|
- function has_key(_para1:longint):longint;cdecl;external;
|
|
|
-
|
|
|
-implementation
|
|
|
-
|
|
|
-function wgetstr(w : pwindow;s : pchar) : longint;
|
|
|
-begin
|
|
|
- wgetstr:=wgetnstr(w,s,-(1));
|
|
|
-end;
|
|
|
-
|
|
|
-function getnstr(s : pchar;n : longint) : longint;
|
|
|
-begin
|
|
|
- getnstr:=wgetnstr(stdscr,s,n);
|
|
|
-end;
|
|
|
-
|
|
|
-function setterm(term : longint) : longint;
|
|
|
-begin
|
|
|
- {
|
|
|
- setterm:=setupterm(term,1,plongint(0));
|
|
|
- }
|
|
|
- setterm:=0;
|
|
|
-end;
|
|
|
-
|
|
|
-function fixterm : longint;
|
|
|
-begin
|
|
|
- fixterm:=reset_prog_mode;
|
|
|
-end;
|
|
|
-
|
|
|
-function resetterm : longint;
|
|
|
-begin
|
|
|
- resetterm:=reset_shell_mode;
|
|
|
-end;
|
|
|
-
|
|
|
-function saveterm : longint;
|
|
|
-begin
|
|
|
- saveterm:=def_prog_mode;
|
|
|
-end;
|
|
|
-
|
|
|
-function crmode : longint;
|
|
|
-begin
|
|
|
- crmode:=cbreak;
|
|
|
-end;
|
|
|
-
|
|
|
-function nocrmode : longint;
|
|
|
-begin
|
|
|
- nocrmode:=nocbreak;
|
|
|
-end;
|
|
|
-
|
|
|
-procedure getsyx(var y,x : longint);
|
|
|
-begin
|
|
|
- getyx(stdscr,y,x);
|
|
|
-end;
|
|
|
-
|
|
|
-function getattrs(win : pwindow) : longint;
|
|
|
-var
|
|
|
- if_local1 : longint;
|
|
|
-begin
|
|
|
- if win<>nil then
|
|
|
- if_local1:=win^._attrs
|
|
|
- else
|
|
|
- if_local1:=A_NORMAL;
|
|
|
- getattrs:=if_local1;
|
|
|
-end;
|
|
|
-
|
|
|
-function getcurx(win : pwindow) : longint;
|
|
|
-var
|
|
|
- if_local1 : longint;
|
|
|
-begin
|
|
|
- if win<>nil then
|
|
|
- if_local1:=win^._curx
|
|
|
- else
|
|
|
- if_local1:=ERR;
|
|
|
- getcurx:=if_local1;
|
|
|
-end;
|
|
|
-
|
|
|
-function getcury(win : pwindow) : longint;
|
|
|
-var
|
|
|
- if_local1 : longint;
|
|
|
-begin
|
|
|
- if win<>Nil then
|
|
|
- if_local1:=win^._cury
|
|
|
- else
|
|
|
- if_local1:=ERR;
|
|
|
- getcury:=if_local1;
|
|
|
-end;
|
|
|
-function getbegx(win : pwindow) : longint;
|
|
|
-var
|
|
|
- if_local1 : longint;
|
|
|
-
|
|
|
-begin
|
|
|
- if win<>Nil then
|
|
|
- if_local1:=win^._begx
|
|
|
- else
|
|
|
- if_local1:=ERR;
|
|
|
- getbegx:=if_local1;
|
|
|
-end;
|
|
|
-
|
|
|
-function getbegy(win : pwindow) : longint;
|
|
|
-var
|
|
|
- if_local1 : longint;
|
|
|
-begin
|
|
|
- if win<>Nil then
|
|
|
- if_local1:=win^._begy
|
|
|
- else
|
|
|
- if_local1:=ERR;
|
|
|
- getbegy:=if_local1;
|
|
|
-end;
|
|
|
-
|
|
|
-function getmaxx(win : pwindow) : longint;
|
|
|
-var
|
|
|
- if_local1 : longint;
|
|
|
-begin
|
|
|
- if win<>Nil then
|
|
|
- if_local1:=(win^._maxx) + 1
|
|
|
- else
|
|
|
- if_local1:=ERR;
|
|
|
- getmaxx:=if_local1;
|
|
|
-end;
|
|
|
-
|
|
|
-function getmaxy(win : pwindow) : longint;
|
|
|
-var
|
|
|
- if_local1 : longint;
|
|
|
-begin
|
|
|
- if win<>Nil then
|
|
|
- if_local1:=(win^._maxy) + 1
|
|
|
- else
|
|
|
- if_local1:=ERR;
|
|
|
- getmaxy:=if_local1;
|
|
|
-end;
|
|
|
-
|
|
|
-function getparx(win : pwindow) : longint;
|
|
|
-var
|
|
|
- if_local1 : longint;
|
|
|
-begin
|
|
|
- if win<>Nil then
|
|
|
- if_local1:=win^._parx
|
|
|
- else
|
|
|
- if_local1:=ERR;
|
|
|
- getparx:=if_local1;
|
|
|
-end;
|
|
|
-
|
|
|
-function getpary(win : pwindow) : longint;
|
|
|
-var
|
|
|
- if_local1 : longint;
|
|
|
-begin
|
|
|
- if win<>Nil then
|
|
|
- if_local1:=win^._pary
|
|
|
- else
|
|
|
- if_local1:=ERR;
|
|
|
- getpary:=if_local1;
|
|
|
-end;
|
|
|
-
|
|
|
-function wstandout(win : pwindow) : longint;
|
|
|
-begin
|
|
|
- wstandout:=wattr_set(win,A_STANDOUT);
|
|
|
-end;
|
|
|
-
|
|
|
-function wstandend(win : pwindow) : longint;
|
|
|
-begin
|
|
|
- wstandend:=wattr_set(win,A_NORMAL);
|
|
|
-end;
|
|
|
-
|
|
|
-function wattron(win : pwindow;at : longint) : longint;
|
|
|
-begin
|
|
|
- wattron:=wattr_on(win,at);
|
|
|
-end;
|
|
|
-
|
|
|
-function wattroff(win : pwindow;at : longint) : longint;
|
|
|
-begin
|
|
|
- wattroff:=wattr_off(win,at);
|
|
|
-end;
|
|
|
-
|
|
|
-function wattrset(win : pwindow;at : longint) : longint;
|
|
|
-begin
|
|
|
- wattrset:=wattr_set(win,at);
|
|
|
-end;
|
|
|
-
|
|
|
-function scroll(win : pwindow) : longint;
|
|
|
-begin
|
|
|
- scroll:=wscrl(win,1);
|
|
|
-end;
|
|
|
-
|
|
|
-function touchwin(win : pwindow) : longint;
|
|
|
-begin
|
|
|
- touchwin:=wtouchln(win,0,getmaxy(win),1);
|
|
|
-end;
|
|
|
-
|
|
|
-function touchline(win : pwindow;s,c : longint) : longint;
|
|
|
-begin
|
|
|
- touchline:=wtouchln(win,s,c,1);
|
|
|
-end;
|
|
|
-
|
|
|
-function untouchwin(win : pwindow) : longint;
|
|
|
-begin
|
|
|
- untouchwin:=wtouchln(win,0,getmaxy(win),0);
|
|
|
-end;
|
|
|
-
|
|
|
-function box(win : pwindow;v,h : longint) : longint;
|
|
|
-begin
|
|
|
- box:=wborder(win,v,v,h,h,0,0,0,0);
|
|
|
-end;
|
|
|
-
|
|
|
-function border(ls,rs,ts,bs,tl,tr,bl,br : longint) : longint;
|
|
|
-begin
|
|
|
- border:=wborder(stdscr,ls,rs,ts,bs,tl,tr,bl,br);
|
|
|
-end;
|
|
|
-
|
|
|
-function hline(ch,n : longint) : longint;
|
|
|
-begin
|
|
|
- hline:=whline(stdscr,ch,n);
|
|
|
-end;
|
|
|
-
|
|
|
-function vline(ch,n : longint) : longint;
|
|
|
-begin
|
|
|
- vline:=wvline(stdscr,ch,n);
|
|
|
-end;
|
|
|
-
|
|
|
-function winstr(w : pwindow;s : pchar) : longint;
|
|
|
-begin
|
|
|
- winstr:=winnstr(w,s,-(1));
|
|
|
-end;
|
|
|
-
|
|
|
-function winchstr(w : pwindow;s : pchar) : longint;
|
|
|
-begin
|
|
|
- winchstr:=winchnstr(w,s,-1);
|
|
|
-end;
|
|
|
-
|
|
|
-function winsstr(w : pwindow;s : pchar) : longint;
|
|
|
-begin
|
|
|
- winsstr:=winsnstr(w,s,-(1));
|
|
|
-end;
|
|
|
-
|
|
|
-function redrawwin(w : pwindow) : longint;
|
|
|
-begin
|
|
|
- redrawwin:=wredrawln(w,0,(w^._maxy) + 1);
|
|
|
-end;
|
|
|
-
|
|
|
-function waddstr(win : pwindow;st : pchar) : longint;
|
|
|
-begin
|
|
|
- waddstr:=waddnstr(win,st,-1);
|
|
|
-end;
|
|
|
-
|
|
|
-function waddchstr(win : pwindow;st : pchar) : longint;
|
|
|
-begin
|
|
|
- waddchstr:=waddchnstr(win,st,-1);
|
|
|
-end;
|
|
|
-
|
|
|
-function addch(ch : longint) : longint;
|
|
|
-begin
|
|
|
- addch:=waddch(stdscr,ch);
|
|
|
-end;
|
|
|
-
|
|
|
-function addchnstr(st : pchar;n : longint) : longint;
|
|
|
-begin
|
|
|
- addchnstr:=waddchnstr(stdscr,st,n);
|
|
|
-end;
|
|
|
-
|
|
|
-function addchstr(st : pchar) : longint;
|
|
|
-begin
|
|
|
- addchstr:=waddchstr(stdscr,st);
|
|
|
-end;
|
|
|
-
|
|
|
-function addnstr(st : pchar;n : longint) : longint;
|
|
|
-begin
|
|
|
- addnstr:=waddnstr(stdscr,st,n);
|
|
|
-end;
|
|
|
-
|
|
|
-function addstr(st : pchar) : longint;
|
|
|
-begin
|
|
|
- addstr:=waddnstr(stdscr,st,-1);
|
|
|
-end;
|
|
|
-
|
|
|
-function attroff(at : longint) : longint;
|
|
|
-begin
|
|
|
- attroff:=wattroff(stdscr,at);
|
|
|
-end;
|
|
|
-
|
|
|
-function attron(at : longint) : longint;
|
|
|
-begin
|
|
|
- attron:=wattron(stdscr,at);
|
|
|
-end;
|
|
|
-
|
|
|
-function attrset(at : longint) : longint;
|
|
|
-begin
|
|
|
- attrset:=wattrset(stdscr,at);
|
|
|
-end;
|
|
|
-
|
|
|
-function bkgd(ch : longint) : longint;
|
|
|
-begin
|
|
|
- bkgd:=wbkgd(stdscr,ch);
|
|
|
-end;
|
|
|
-
|
|
|
-procedure bkgdset(ch : longint);
|
|
|
-begin
|
|
|
- wbkgdset(stdscr,ch);
|
|
|
-end;
|
|
|
-
|
|
|
-function clear : longint;
|
|
|
-begin
|
|
|
- clear:=wclear(stdscr);
|
|
|
-end;
|
|
|
-
|
|
|
-function clrtobot : longint;
|
|
|
-begin
|
|
|
- clrtobot:=wclrtobot(stdscr);
|
|
|
-end;
|
|
|
-
|
|
|
-function clrtoeol : longint;
|
|
|
-begin
|
|
|
- clrtoeol:=wclrtoeol(stdscr);
|
|
|
-end;
|
|
|
-
|
|
|
-function delch : longint;
|
|
|
-begin
|
|
|
- delch:=wdelch(stdscr);
|
|
|
-end;
|
|
|
-
|
|
|
-function deleteln : longint;
|
|
|
-begin
|
|
|
- deleteln:=winsdelln(stdscr,-1);
|
|
|
-end;
|
|
|
-
|
|
|
-function echochar(c : longint) : longint;
|
|
|
-begin
|
|
|
- echochar:=wechochar(stdscr,c);
|
|
|
-end;
|
|
|
-
|
|
|
-function erase : longint;
|
|
|
-begin
|
|
|
- erase:=werase(stdscr);
|
|
|
-end;
|
|
|
-
|
|
|
-function getch : longint;
|
|
|
-begin
|
|
|
- getch:=wgetch(stdscr);
|
|
|
-end;
|
|
|
-
|
|
|
-function getstr(st : pchar) : longint;
|
|
|
-begin
|
|
|
- getstr:=wgetstr(stdscr,st);
|
|
|
-end;
|
|
|
-
|
|
|
-function inch : longint;
|
|
|
-begin
|
|
|
- inch:=winch(stdscr);
|
|
|
-end;
|
|
|
-
|
|
|
-function inchnstr(s : pchar;n : longint) : longint;
|
|
|
-begin
|
|
|
- inchnstr:=winchnstr(stdscr,s,n);
|
|
|
-end;
|
|
|
-
|
|
|
-function inchstr(s : pchar) : longint;
|
|
|
-begin
|
|
|
- inchstr:=winchstr(stdscr,s);
|
|
|
-end;
|
|
|
-
|
|
|
-function innstr(s : pchar;n : longint) : longint;
|
|
|
-begin
|
|
|
- innstr:=winnstr(stdscr,s,n);
|
|
|
-end;
|
|
|
-
|
|
|
-function insch(c : longint) : longint;
|
|
|
-begin
|
|
|
- insch:=winsch(stdscr,c);
|
|
|
-end;
|
|
|
-
|
|
|
-function insdelln(n : longint) : longint;
|
|
|
-begin
|
|
|
- insdelln:=winsdelln(stdscr,n);
|
|
|
-end;
|
|
|
-
|
|
|
-function insertln : longint;
|
|
|
-begin
|
|
|
- insertln:=winsdelln(stdscr,1);
|
|
|
-end;
|
|
|
-
|
|
|
-function insnstr(s : pchar;n : longint) : longint;
|
|
|
-begin
|
|
|
- insnstr:=winsnstr(stdscr,s,n);
|
|
|
-end;
|
|
|
-
|
|
|
-function insstr(s : pchar) : longint;
|
|
|
-begin
|
|
|
- insstr:=winsstr(stdscr,s);
|
|
|
-end;
|
|
|
-
|
|
|
-function instr(s : pchar) : longint;
|
|
|
-begin
|
|
|
- instr:=winstr(stdscr,s);
|
|
|
-end;
|
|
|
-
|
|
|
-function move(y,x : longint) : longint;
|
|
|
-begin
|
|
|
- move:=wmove(stdscr,y,x);
|
|
|
-end;
|
|
|
-
|
|
|
-function refresh : longint;
|
|
|
-begin
|
|
|
- refresh:=wrefresh(stdscr);
|
|
|
-end;
|
|
|
-
|
|
|
-function scrl(n : longint) : longint;
|
|
|
-begin
|
|
|
- scrl:=wscrl(stdscr,n);
|
|
|
-end;
|
|
|
-
|
|
|
-function setscrreg(t,b : longint) : longint;
|
|
|
-begin
|
|
|
- setscrreg:=wsetscrreg(stdscr,t,b);
|
|
|
-end;
|
|
|
-
|
|
|
-function standend : longint;
|
|
|
-begin
|
|
|
- standend:=wstandend(stdscr);
|
|
|
-end;
|
|
|
-
|
|
|
-function standout : longint;
|
|
|
-begin
|
|
|
- standout:=wstandout(stdscr);
|
|
|
-end;
|
|
|
-
|
|
|
-function timeout(delay : longint) : longint;
|
|
|
-begin
|
|
|
- timeout:=wtimeout(stdscr,delay);
|
|
|
-end;
|
|
|
-
|
|
|
-function wdeleteln(win : pwindow) : longint;
|
|
|
-begin
|
|
|
- wdeleteln:=winsdelln(win,-1);
|
|
|
-end;
|
|
|
-
|
|
|
-function winsertln(win : pwindow) : longint;
|
|
|
-begin
|
|
|
- winsertln:=winsdelln(win,1);
|
|
|
-end;
|
|
|
-
|
|
|
-function mvaddch(y,x,ch : longint) : longint;
|
|
|
-begin
|
|
|
- mvaddch:=mvwaddch(stdscr,y,x,ch);
|
|
|
-end;
|
|
|
-
|
|
|
-function mvaddchnstr(y,x: longint;st : pchar;n : longint) : longint;
|
|
|
-begin
|
|
|
- mvaddchnstr:=mvwaddchnstr(stdscr,y,x,st,n);
|
|
|
-end;
|
|
|
-
|
|
|
-function mvaddchstr(y,x : longint;st : pchar) : longint;
|
|
|
-begin
|
|
|
- mvaddchstr:=mvwaddchstr(stdscr,y,x,st);
|
|
|
-end;
|
|
|
-
|
|
|
-function mvaddnstr(y,x: longint;st : pchar; n : longint) : longint;
|
|
|
-begin
|
|
|
- mvaddnstr:=mvwaddnstr(stdscr,y,x,st,n);
|
|
|
-end;
|
|
|
-
|
|
|
-function mvaddstr(y,x : longint;st : pchar) : longint;
|
|
|
-begin
|
|
|
- mvaddstr:=mvwaddstr(stdscr,y,x,st);
|
|
|
-end;
|
|
|
-
|
|
|
-function mvdelch(y,x : longint) : longint;
|
|
|
-begin
|
|
|
- mvdelch:=mvwdelch(stdscr,y,x);
|
|
|
-end;
|
|
|
-
|
|
|
-function mvgetch(y,x : longint) : longint;
|
|
|
-begin
|
|
|
- mvgetch:=mvwgetch(stdscr,y,x);
|
|
|
-end;
|
|
|
-
|
|
|
-function mvgetnstr(y,x : longint;st : pchar;n : longint) : longint;
|
|
|
-begin
|
|
|
- mvgetnstr:=mvwgetnstr(stdscr,y,x,st,n);
|
|
|
-end;
|
|
|
-
|
|
|
-function mvgetstr(y,x: longint;st : pchar) : longint;
|
|
|
-begin
|
|
|
- mvgetstr:=mvwgetstr(stdscr,y,x,st);
|
|
|
-end;
|
|
|
-
|
|
|
-function mvhline(y,x : longint;c : chtype;n : longint) : longint;
|
|
|
-begin
|
|
|
- mvhline:=mvwhline(stdscr,y,x,c,n);
|
|
|
-end;
|
|
|
-
|
|
|
-function mvinch(y,x : longint) : longint;
|
|
|
-begin
|
|
|
- mvinch:=mvwinch(stdscr,y,x);
|
|
|
-end;
|
|
|
-
|
|
|
-function mvinchnstr(y,x : longint;s : pchar;n : longint) : longint;
|
|
|
-begin
|
|
|
- mvinchnstr:=mvwinchnstr(stdscr,y,x,s,n);
|
|
|
-end;
|
|
|
-
|
|
|
-function mvinchstr(y,x : longint;s : pchar) : longint;
|
|
|
-begin
|
|
|
- mvinchstr:=mvwinchstr(stdscr,y,x,s);
|
|
|
-end;
|
|
|
-
|
|
|
-function mvinnstr(y,x : longint;s : pchar;n : longint) : longint;
|
|
|
-begin
|
|
|
- mvinnstr:=mvwinnstr(stdscr,y,x,s,n);
|
|
|
-end;
|
|
|
-
|
|
|
-function mvinsch(y,x: longint;c : chtype) : longint;
|
|
|
-begin
|
|
|
- mvinsch:=mvwinsch(stdscr,y,x,c);
|
|
|
-end;
|
|
|
-
|
|
|
-function mvinsnstr(y,x : longint;s : pchar;n : longint) : longint;
|
|
|
-begin
|
|
|
- mvinsnstr:=mvwinsnstr(stdscr,y,x,s,n);
|
|
|
-end;
|
|
|
-
|
|
|
-function mvinsstr(y,x : longint;s : pchar) : longint;
|
|
|
-begin
|
|
|
- mvinsstr:=mvwinsstr(stdscr,y,x,s);
|
|
|
-end;
|
|
|
-
|
|
|
-function mvinstr(y,x : longint;s : pchar) : longint;
|
|
|
-begin
|
|
|
- mvinstr:=mvwinstr(stdscr,y,x,s);
|
|
|
-end;
|
|
|
-
|
|
|
-function mvvline(y,x,c,n : longint) : longint;
|
|
|
-begin
|
|
|
- mvvline:=mvwvline(stdscr,y,x,c,n);
|
|
|
-end;
|
|
|
-
|
|
|
-function attr_get : longint;
|
|
|
-begin
|
|
|
- attr_get:=wattr_get(stdscr);
|
|
|
-end;
|
|
|
-
|
|
|
-function attr_off(a : longint) : longint;
|
|
|
-begin
|
|
|
- attr_off:=wattr_off(stdscr,a);
|
|
|
-end;
|
|
|
-
|
|
|
-function attr_on(a : longint) : longint;
|
|
|
-begin
|
|
|
- attr_on:=wattr_on(stdscr,a);
|
|
|
-end;
|
|
|
-
|
|
|
-function attr_set(a : longint) : longint;
|
|
|
-begin
|
|
|
- attr_set:=wattr_set(stdscr,a);
|
|
|
-end;
|
|
|
-
|
|
|
-function chgat(n,a,c,o : longint) : longint;
|
|
|
-begin
|
|
|
- chgat:=wchgat(stdscr,n,a,c,pointer(o));
|
|
|
-end;
|
|
|
-
|
|
|
-function getbkgd(win : pwindow) : longint;
|
|
|
-begin
|
|
|
- getbkgd:=win^._bkgd;
|
|
|
-end;
|
|
|
-
|
|
|
-function mvchgat(y,x,n,a,c,o : longint) : longint;
|
|
|
-begin
|
|
|
- mvchgat:=mvwchgat(stdscr,y,x,n,a,c,o);
|
|
|
-end;
|
|
|
-
|
|
|
-function slk_attr_off(a : longint) : longint;
|
|
|
-begin
|
|
|
- slk_attr_off:=slk_attroff(a);
|
|
|
-end;
|
|
|
-
|
|
|
-function slk_attr_on(a : longint) : longint;
|
|
|
-begin
|
|
|
- slk_attr_on:=slk_attron(a);
|
|
|
-end;
|
|
|
-
|
|
|
-function slk_attr_set(a : longint) : longint;
|
|
|
-begin
|
|
|
- slk_attr_set:=slk_attrset(a);
|
|
|
-end;
|
|
|
-
|
|
|
-function vid_attr(a : longint) : longint;
|
|
|
-begin
|
|
|
- vid_attr:=vidattr(a);
|
|
|
-end;
|
|
|
-
|
|
|
-function wattr_get(win : pwindow) : longint;
|
|
|
-begin
|
|
|
- wattr_get:=win^._attrs;
|
|
|
-end;
|
|
|
-
|
|
|
-function KEY_F(n : longint) : longint;
|
|
|
-begin
|
|
|
- KEY_F:=KEY_F0 + n;
|
|
|
-end;
|
|
|
-
|
|
|
-procedure getyx(win : pwindow; var y,x : longint);
|
|
|
-begin
|
|
|
- X:=ERR;
|
|
|
- Y:=ERR;
|
|
|
- if Win<>Nil then
|
|
|
- begin
|
|
|
- Y:=win^._cury;
|
|
|
- X:=Win^._curx;
|
|
|
- end;
|
|
|
-end;
|
|
|
-
|
|
|
-procedure getbegyx(win : pwindow; var y,x : longint);
|
|
|
-begin
|
|
|
- X:=ERR;
|
|
|
- Y:=ERR;
|
|
|
- if Win<>Nil then
|
|
|
- begin
|
|
|
- Y:=win^._begy;
|
|
|
- X:=Win^._begx;
|
|
|
- end;
|
|
|
-end;
|
|
|
-
|
|
|
-procedure getmaxyx(win : pwindow; var y,x : longint);
|
|
|
-begin
|
|
|
- X:=ERR;
|
|
|
- Y:=ERR;
|
|
|
- if Win<>Nil then
|
|
|
- begin
|
|
|
- Y:=win^._maxy+1;
|
|
|
- X:=Win^._maxx+1;
|
|
|
- end;
|
|
|
-end;
|
|
|
-
|
|
|
-procedure getparyx(win : pwindow; var y,x : longint);
|
|
|
-begin
|
|
|
- X:=ERR;
|
|
|
- Y:=ERR;
|
|
|
- if Win<>Nil then
|
|
|
- begin
|
|
|
- Y:=win^._pary;
|
|
|
- X:=Win^._parx;
|
|
|
- end;
|
|
|
-end;
|
|
|
-
|
|
|
-function winch (win : PWindow) : longint;
|
|
|
-begin
|
|
|
- if win<>nil then
|
|
|
- winch:=win^._line[win^._cury].text[Win^ ._curx]
|
|
|
- else
|
|
|
- winch:=0;
|
|
|
-end;
|
|
|
-
|
|
|
-function wattr_set(win : pwindow; at : longint) : longint;
|
|
|
-begin
|
|
|
- If win<>nil then
|
|
|
- begin
|
|
|
- win^._attrs := at;
|
|
|
- wattr_set:=at;
|
|
|
- end
|
|
|
- else
|
|
|
- wattr_set:=0;
|
|
|
-end;
|
|
|
-
|
|
|
-procedure setsyx (y,x : longint);
|
|
|
-begin
|
|
|
- stdscr^._cury := y;
|
|
|
- stdscr^._curx := x;
|
|
|
-end;
|
|
|
-
|
|
|
-function mvwaddch(win : pwindow;y,x : longint; ch : chtype) : longint;
|
|
|
-begin
|
|
|
- if wmove(win,y,x) = ERR then
|
|
|
- exit(ERR)
|
|
|
- else
|
|
|
- exit(waddch(win,ch))
|
|
|
-end;
|
|
|
-
|
|
|
-function mvwaddchnstr(win : pwindow;y,x : longint;st : pchar;n : longint) : longint;
|
|
|
-begin
|
|
|
- if wmove (win,y,x)=ERR then
|
|
|
- exit(ERR)
|
|
|
- else
|
|
|
- exit(waddchnstr(win,st,n))
|
|
|
-end;
|
|
|
-
|
|
|
-function mvwaddchstr(win : pwindow;y,x : longint;st : pchar) : longint;
|
|
|
-begin
|
|
|
- if wmove (win,y,x)=ERR then
|
|
|
- exit(ERR)
|
|
|
- else
|
|
|
- exit(waddchnstr(win,st,-1))
|
|
|
-end;
|
|
|
-
|
|
|
-function mvwaddnstr(win : pwindow;y,x : longint;st : pchar;n : longint) : longint;
|
|
|
-begin
|
|
|
- if wmove (win,y,x)=ERR then
|
|
|
- exit(ERR)
|
|
|
- else
|
|
|
- exit(waddnstr(win,st,n))
|
|
|
-end;
|
|
|
-
|
|
|
-function mvwaddstr(win : pwindow;y,x : longint;st : pchar) : longint;
|
|
|
-begin
|
|
|
- if wmove (win,y,x)=ERR then
|
|
|
- exit(ERR)
|
|
|
- else
|
|
|
- exit(waddnstr(win,st,-1))
|
|
|
-end;
|
|
|
-
|
|
|
-function mvwdelch(win : pwindow;y,x : longint) : longint;
|
|
|
-begin
|
|
|
- if wmove (win,y,x)=ERR then
|
|
|
- exit(ERR)
|
|
|
- else
|
|
|
- exit(wdelch(win))
|
|
|
-end;
|
|
|
-
|
|
|
-function mvwgetch(win : pwindow;y,x : longint) : longint;
|
|
|
-begin
|
|
|
- if wmove (win,y,x)=ERR then
|
|
|
- exit(ERR)
|
|
|
- else
|
|
|
- exit(wgetch(win))
|
|
|
-end;
|
|
|
-
|
|
|
-function mvwgetnstr(win : pwindow;y,x : longint;st : pchar;n: longint) : longint;
|
|
|
-begin
|
|
|
- if wmove (win,y,x)=ERR then
|
|
|
- exit(ERR)
|
|
|
- else
|
|
|
- exit(wgetnstr(win,st,n))
|
|
|
-end;
|
|
|
-
|
|
|
-function mvwgetstr(win : pwindow;y,x : longint;st: pchar) : longint;
|
|
|
-begin
|
|
|
- if wmove (win,y,x)=ERR then
|
|
|
- exit(ERR)
|
|
|
- else
|
|
|
- exit(wgetstr(win,st))
|
|
|
-end;
|
|
|
-
|
|
|
-function mvwhline(win : pwindow;y,x : longint;c : chtype;n : longint) : longint;
|
|
|
-begin
|
|
|
- if wmove (win,y,x)=ERR then
|
|
|
- exit(ERR)
|
|
|
- else
|
|
|
- exit(whline(win,c,n))
|
|
|
-end;
|
|
|
-
|
|
|
-function mvwinch(win : pwindow;y,x : longint) : longint;
|
|
|
-begin
|
|
|
- if wmove (win,y,x)=ERR then
|
|
|
- exit(ERR)
|
|
|
- else
|
|
|
- exit(winch(win))
|
|
|
-end;
|
|
|
-
|
|
|
-function mvwinchnstr(win : pwindow;y,x : longint;s : pchar; n : longint) : longint;
|
|
|
-begin
|
|
|
- if wmove (win,y,x)=ERR then
|
|
|
- exit(ERR)
|
|
|
- else
|
|
|
- exit(winchnstr(win,s,n))
|
|
|
-end;
|
|
|
-
|
|
|
-function mvwinchstr(win : pwindow;y,x : longint;s : pchar) : longint;
|
|
|
-begin
|
|
|
- if wmove (win,y,x)=ERR then
|
|
|
- exit(ERR)
|
|
|
- else
|
|
|
- exit(winchstr(win,s))
|
|
|
-end;
|
|
|
-
|
|
|
-function mvwinnstr(win : pwindow;y,x : longint;s : pchar;n : longint) : longint;
|
|
|
-begin
|
|
|
- if wmove (win,y,x)=ERR then
|
|
|
- exit(ERR)
|
|
|
- else
|
|
|
- exit(winnstr(win,s,n))
|
|
|
-end;
|
|
|
-
|
|
|
-function mvwinsch(win : pwindow;y,x : longint;c : chtype) : longint;
|
|
|
-begin
|
|
|
- if wmove (win,y,x)=ERR then
|
|
|
- exit(ERR)
|
|
|
- else
|
|
|
- exit(winsch(win,c))
|
|
|
-end;
|
|
|
-
|
|
|
-function mvwinsnstr(win : pwindow;y,x : longint;s : pchar;n : longint) : longint;
|
|
|
-begin
|
|
|
- if wmove (win,y,x)=ERR then
|
|
|
- exit(ERR)
|
|
|
- else
|
|
|
- exit(winsnstr(win,s,n))
|
|
|
-end;
|
|
|
-
|
|
|
-function mvwinsstr(win : pwindow;y,x : longint;s : pchar) : longint;
|
|
|
-begin
|
|
|
- if wmove (win,y,x)=ERR then
|
|
|
- exit(ERR)
|
|
|
- else
|
|
|
- exit(winsstr(win,s))
|
|
|
-end;
|
|
|
-
|
|
|
-function mvwinstr(win : pwindow;y,x : longint;s : pchar) : longint;
|
|
|
-begin
|
|
|
- if wmove (win,y,x)=ERR then
|
|
|
- exit(ERR)
|
|
|
- else
|
|
|
- exit(winstr(win,s))
|
|
|
-end;
|
|
|
-
|
|
|
-function mvwvline(win : pwindow;y,x : longint;c : chtype;n : longint) : longint;
|
|
|
-begin
|
|
|
- if wmove (win,y,x)=ERR then
|
|
|
- exit(ERR)
|
|
|
- else
|
|
|
- exit(wvline(win,c,n))
|
|
|
-end;
|
|
|
-
|
|
|
-function color_pair(n : longint): longint;
|
|
|
-begin
|
|
|
- color_pair:=n shl 8;
|
|
|
-end;
|
|
|
-
|
|
|
-function ACS_ULCORNER : chtype;
|
|
|
-begin
|
|
|
- ACS_ULCORNER:=acs_map['l'];
|
|
|
-end;
|
|
|
-
|
|
|
-function ACS_LLCORNER : chtype;
|
|
|
-begin
|
|
|
- ACS_LLCORNER:=acs_map['m'];
|
|
|
-end;
|
|
|
-
|
|
|
-function ACS_URCORNER : chtype;
|
|
|
-begin
|
|
|
- ACS_URCORNER:=acs_map['k'];
|
|
|
-end;
|
|
|
-
|
|
|
-function ACS_LRCORNER : chtype;
|
|
|
-begin
|
|
|
- ACS_LRCORNER:=acs_map['j'];
|
|
|
-end;
|
|
|
-
|
|
|
-function ACS_LTEE : chtype;
|
|
|
-begin
|
|
|
- ACS_LTEE:=acs_map['t'];
|
|
|
-end;
|
|
|
-
|
|
|
-function ACS_RTEE : chtype;
|
|
|
-begin
|
|
|
- ACS_RTEE:=acs_map['u'];
|
|
|
-end;
|
|
|
-
|
|
|
-function ACS_BTEE : chtype;
|
|
|
-begin
|
|
|
- ACS_BTEE:=acs_map['v'];
|
|
|
-end;
|
|
|
-
|
|
|
-function ACS_TTEE : chtype;
|
|
|
-begin
|
|
|
- ACS_TTEE:=acs_map['w'];
|
|
|
-end;
|
|
|
-
|
|
|
-function ACS_HLINE : chtype;
|
|
|
-begin
|
|
|
- ACS_HLINE:=acs_map['q'];
|
|
|
-end;
|
|
|
-
|
|
|
-function ACS_VLINE : chtype;
|
|
|
-begin
|
|
|
- ACS_VLINE:=acs_map['x'];
|
|
|
-end;
|
|
|
-
|
|
|
-function ACS_PLUS : chtype;
|
|
|
-begin
|
|
|
- ACS_PLUS:=acs_map['n'];
|
|
|
-end;
|
|
|
-
|
|
|
-function ACS_S1 : chtype;
|
|
|
-begin
|
|
|
- ACS_S1 :=acs_map['o'];
|
|
|
-end;
|
|
|
-
|
|
|
-function ACS_S9 : chtype;
|
|
|
-begin
|
|
|
- ACS_S9 :=acs_map['s'];
|
|
|
-end;
|
|
|
-
|
|
|
-function ACS_DIAMOND : chtype;
|
|
|
-begin
|
|
|
- ACS_DIAMOND:=acs_map['`'];
|
|
|
-end;
|
|
|
-
|
|
|
-function ACS_CKBOARD : chtype;
|
|
|
-begin
|
|
|
- ACS_CKBOARD:=acs_map['a'];
|
|
|
-end;
|
|
|
-
|
|
|
-function ACS_DEGREE : chtype;
|
|
|
-begin
|
|
|
- ACS_DEGREE:=acs_map['f'];
|
|
|
-end;
|
|
|
-
|
|
|
-function ACS_PLMINUS : chtype;
|
|
|
-begin
|
|
|
- ACS_PLMINUS:=acs_map['g'];
|
|
|
-end;
|
|
|
-
|
|
|
-function ACS_BULLET : chtype;
|
|
|
-begin
|
|
|
- ACS_BULLET:=acs_map['~'];
|
|
|
-end;
|
|
|
-
|
|
|
-function ACS_LARROW : chtype;
|
|
|
-begin
|
|
|
- ACS_LARROW:=acs_map[','];
|
|
|
-end;
|
|
|
-
|
|
|
-function ACS_RARROW : chtype;
|
|
|
-begin
|
|
|
- ACS_RARROW:=acs_map['+'];
|
|
|
-end;
|
|
|
-
|
|
|
-function ACS_DARROW : chtype;
|
|
|
-begin
|
|
|
- ACS_DARROW:=acs_map['.'];
|
|
|
-end;
|
|
|
-
|
|
|
-function ACS_UARROW : chtype;
|
|
|
-begin
|
|
|
- ACS_UARROW:=acs_map['-'];
|
|
|
-end;
|
|
|
-
|
|
|
-function ACS_BOARD : chtype;
|
|
|
-begin
|
|
|
- ACS_BOARD:=acs_map['h'];
|
|
|
-end;
|
|
|
-
|
|
|
-function ACS_LANTERN : chtype;
|
|
|
-begin
|
|
|
- ACS_LANTERN:=acs_map['i'];
|
|
|
-end;
|
|
|
-
|
|
|
-function ACS_BLOCK : chtype;
|
|
|
-begin
|
|
|
- ACS_BLOCK:=acs_map['0'];
|
|
|
-end;
|
|
|
-
|
|
|
-function ACS_S3 : chtype;
|
|
|
-begin
|
|
|
- ACS_S3 :=acs_map['p'];
|
|
|
-end;
|
|
|
-
|
|
|
-function ACS_S7 : chtype;
|
|
|
-begin
|
|
|
- ACS_S7 :=acs_map['r'];
|
|
|
-end;
|
|
|
-
|
|
|
-function ACS_LEQUAL : chtype;
|
|
|
-begin
|
|
|
- ACS_LEQUAL:=acs_map['y'];
|
|
|
-end;
|
|
|
-
|
|
|
-function ACS_GEQUAL : chtype;
|
|
|
-begin
|
|
|
- ACS_GEQUAL:=acs_map['z'];
|
|
|
-end;
|
|
|
-
|
|
|
-function ACS_PI : chtype;
|
|
|
-begin
|
|
|
- ACS_PI :=acs_map['{'];
|
|
|
-end;
|
|
|
-
|
|
|
-function ACS_NEQUAL : chtype;
|
|
|
-begin
|
|
|
- ACS_NEQUAL:=acs_map['|'];
|
|
|
-end;
|
|
|
-
|
|
|
-function ACS_STERLING : chtype;
|
|
|
-begin
|
|
|
- ACS_STERLING:=acs_map['}'];
|
|
|
-end;
|
|
|
-
|
|
|
-end.
|
|
|
+ KEY_DL = 328; {0510}
|
|
|
+ KEY_IL = 329; {0511}
|
|
|
+ KEY_DC = 330; {0512}
|
|
|
+ KEY_IC = 331; {0513}
|
|
|
+ KEY_EIC = 332; {0514}
|
|
|
+ KEY_CLEAR = 333; {0515}
|
|
|
+ KEY_EOS = 334; {0516}
|
|
|
+ KEY_EOL = 335; {0517}
|
|
|
+ KEY_SF = 336; {0520}
|
|
|
+ KEY_SR = 337; {0521}
|
|
|
+ KEY_NPAGE = 338; {0522}
|
|
|
+ KEY_PPAGE = 339; {0523}
|
|
|
+ KEY_STAB = 340; {0524}
|
|
|
+ KEY_CTAB = 341; {0525}
|
|
|
+ KEY_CATAB = 342; {0526}
|
|
|
+ KEY_ENTER = 343; {0527}
|
|
|
+ KEY_SRESET = 344; {0530}
|
|
|
+ KEY_RESET = 345; {0531}
|
|
|
+ KEY_PRINT = 346; {0532}
|
|
|
+ KEY_LL = 347; {0533}
|
|
|
+ KEY_A1 = 348; {0534}
|
|
|
+ KEY_A3 = 349; {0535}
|
|
|
+ KEY_B2 = 350; {0536}
|
|
|
+ KEY_C1 = 351; {0537}
|
|
|
+ KEY_C3 = 352; {0540}
|
|
|
+ KEY_BTAB = 353; {0541}
|
|
|
+ KEY_BEG = 354; {0542}
|
|
|
+ KEY_CANCEL = 355; {0543}
|
|
|
+ KEY_CLOSE = 356; {0544}
|
|
|
+ KEY_COMMAND = 357; {0545}
|
|
|
+ KEY_COPY = 358; {0546}
|
|
|
+ KEY_CREATE = 359; {0547}
|
|
|
+ KEY_END = 360; {0550}
|
|
|
+ KEY_EXIT = 361; {0551}
|
|
|
+ KEY_FIND = 362; {0552}
|
|
|
+ KEY_HELP = 363; {0553}
|
|
|
+ KEY_MARK = 364; {0554}
|
|
|
+ KEY_MESSAGE = 365; {0555}
|
|
|
+ KEY_MOVE = 366; {0556}
|
|
|
+ KEY_NEXT = 367; {0557}
|
|
|
+ KEY_OPEN = 368; {0560}
|
|
|
+ KEY_OPTIONS = 369; {0561}
|
|
|
+ KEY_PREVIOUS = 370; {0562}
|
|
|
+ KEY_REDO = 371; {0563}
|
|
|
+ KEY_REFERENCE = 372; {0564}
|
|
|
+ KEY_REFRESH = 373; {0565}
|
|
|
+ KEY_REPLACE = 374; {0566}
|
|
|
+ KEY_RESTART = 375; {0567}
|
|
|
+ KEY_RESUME = 376; {0570}
|
|
|
+ KEY_SAVE = 377; {0571}
|
|
|
+ KEY_SBEG = 378; {0572}
|
|
|
+ KEY_SCANCEL = 379; {0573}
|
|
|
+ KEY_SCOMMAND = 380; {0574}
|
|
|
+ KEY_SCOPY = 381; {0575}
|
|
|
+ KEY_SCREATE = 382; {0576}
|
|
|
+ KEY_SDC = 383; {0577}
|
|
|
+ KEY_SDL = 384; {0600}
|
|
|
+ KEY_SELECT = 385; {0601}
|
|
|
+ KEY_SEND = 386; {0602}
|
|
|
+ KEY_SEOL = 387; {0603}
|
|
|
+ KEY_SEXIT = 388; {0604}
|
|
|
+ KEY_SFIND = 389; {0605}
|
|
|
+ KEY_SHELP = 390; {0606}
|
|
|
+ KEY_SHOME = 391; {0607}
|
|
|
+ KEY_SIC = 392; {0610}
|
|
|
+ KEY_SLEFT = 393; {0611}
|
|
|
+ KEY_SMESSAGE = 394; {0612}
|
|
|
+ KEY_SMOVE = 395; {0613}
|
|
|
+ KEY_SNEXT = 396; {0614}
|
|
|
+ KEY_SOPTIONS = 397; {0615}
|
|
|
+ KEY_SPREVIOUS = 398; {0616}
|
|
|
+ KEY_SPRINT = 399; {0617}
|
|
|
+ KEY_SREDO = 400; {0620}
|
|
|
+ KEY_SREPLACE = 401; {0621}
|
|
|
+ KEY_SRIGHT = 402; {0622}
|
|
|
+ KEY_SRSUME = 403; {0623}
|
|
|
+ KEY_SSAVE = 404; {0624}
|
|
|
+ KEY_SSUSPEND = 405; {0625}
|
|
|
+ KEY_SUNDO = 406; {0626}
|
|
|
+ KEY_SUSPEND = 407; {0627}
|
|
|
+ KEY_UNDO = 408; {0630}
|
|
|
+ KEY_MOUSE = 409; {0631}
|
|
|
+ KEY_RESIZE = 410; {0632}
|
|
|
+ KEY_MAX = 511; {0777}
|
|
|
+
|
|
|
+ function mcprint(_para1:pchar; _para2:longint):longint;cdecl;
|
|
|
+ function has_key(_para1:longint):longint;cdecl;
|
|
|
+
|
|
|
+ implementation
|
|
|
+
|
|
|
+const External_library='';
|
|
|
+
|
|
|
+ function define_key(_para1:pchar; _para2:longint):longint;Cdecl; External;
|
|
|
+ function keyok(_para1:longint; _para2:bool):longint;Cdecl; External;
|
|
|
+ function resizeterm(_para1:longint; _para2:longint):longint;Cdecl; External;
|
|
|
+ function use_default_colors:longint;Cdecl; External;
|
|
|
+ function wresize(_para1:pWINDOW; _para2:longint; _para3:longint):longint;Cdecl; External;
|
|
|
+ function baudrate:longint;Cdecl; External;
|
|
|
+ function beep:longint;Cdecl; External;
|
|
|
+ function can_change_color:bool;Cdecl; External;
|
|
|
+ function cbreak:longint;Cdecl; External;
|
|
|
+ function clearok(_para1:pWINDOW; _para2:bool):longint;Cdecl; External;
|
|
|
+ function color_content(_para1:longint; _para2:plongint; _para3:plongint; _para4:plongint):longint;Cdecl; External;
|
|
|
+ function copywin(_para1:pWINDOW; _para2:pWINDOW; _para3:longint; _para4:longint; _para5:longint;
|
|
|
+ _para6:longint; _para7:longint; _para8:longint; _para9:longint):longint;Cdecl; External;
|
|
|
+ function curs_set(_para1:longint):longint;Cdecl; External;
|
|
|
+ function def_prog_mode:longint;Cdecl; External;
|
|
|
+ function def_shell_mode:longint;Cdecl; External;
|
|
|
+ function delay_output(_para1:longint):longint;Cdecl; External;
|
|
|
+ procedure delscreen(_para1:pSCREEN);Cdecl; External;
|
|
|
+ function delwin(_para1:pWINDOW):longint;Cdecl; External;
|
|
|
+ function doupdate:longint;Cdecl; External;
|
|
|
+ function echo:longint;Cdecl; External;
|
|
|
+ function endwin:longint;Cdecl; External;
|
|
|
+ function erasechar:char;Cdecl; External;
|
|
|
+ procedure filter;Cdecl; External;
|
|
|
+ function flash:longint;Cdecl; External;
|
|
|
+ function flushinp:longint;Cdecl; External;
|
|
|
+ function halfdelay(_para1:longint):longint;Cdecl; External;
|
|
|
+ function has_colors:bool;Cdecl; External;
|
|
|
+ function has_ic:longint;Cdecl; External;
|
|
|
+ function has_il:longint;Cdecl; External;
|
|
|
+ procedure idcok(_para1:pWINDOW; _para2:bool);Cdecl; External;
|
|
|
+ function idlok(_para1:pWINDOW; _para2:bool):longint;Cdecl; External;
|
|
|
+ procedure immedok(_para1:pWINDOW; _para2:bool);Cdecl; External;
|
|
|
+ function init_color(_para1:longint; _para2:longint; _para3:longint; _para4:longint):longint;Cdecl; External;
|
|
|
+ function init_pair(_para1:longint; _para2:longint; _para3:longint):longint;Cdecl; External;
|
|
|
+ function intrflush(_para1:pWINDOW; _para2:bool):longint;Cdecl; External;
|
|
|
+ function isendwin:longint;Cdecl; External;
|
|
|
+ function is_linetouched(_para1:pWINDOW; _para2:longint):longint;Cdecl; External;
|
|
|
+ function is_wintouched(_para1:pWINDOW):longint;Cdecl; External;
|
|
|
+ function keypad(_para1:pWINDOW; _para2:bool):longint;Cdecl; External;
|
|
|
+ function killchar:char;Cdecl; External;
|
|
|
+ function leaveok(_para1:pWINDOW; _para2:bool):longint;Cdecl; External;
|
|
|
+ function meta(_para1:pWINDOW; _para2:bool):longint;Cdecl; External;
|
|
|
+ function mvcur(_para1:longint; _para2:longint; _para3:longint; _para4:longint):longint;Cdecl; External;
|
|
|
+ function mvderwin(_para1:pWINDOW; _para2:longint; _para3:longint):longint;Cdecl; External;
|
|
|
+ function mvwin(_para1:pWINDOW; _para2:longint; _para3:longint):longint;Cdecl; External;
|
|
|
+ function napms(_para1:longint):longint;Cdecl; External;
|
|
|
+ function nl:longint;Cdecl; External;
|
|
|
+ function nocbreak:longint;Cdecl; External;
|
|
|
+ function nodelay(_para1:pWINDOW; _para2:bool):longint;Cdecl; External;
|
|
|
+ function noecho:longint;Cdecl; External;
|
|
|
+ function nonl:longint;Cdecl; External;
|
|
|
+ function noqiflush:longint;Cdecl; External;
|
|
|
+ function noraw:longint;Cdecl; External;
|
|
|
+ function notimeout(_para1:pWINDOW; _para2:bool):longint;Cdecl; External;
|
|
|
+ function overlay(_para1:pWINDOW; _para2:pWINDOW):longint;Cdecl; External;
|
|
|
+ function overwrite(_para1:pWINDOW; _para2:pWINDOW):longint;Cdecl; External;
|
|
|
+ function pair_content(_para1:longint; _para2:plongint; _para3:plongint):longint;Cdecl; External;
|
|
|
+ function pechochar(_para1:pWINDOW; _para2:chtype):longint;Cdecl; External;
|
|
|
+ function pnoutrefresh(_para1:pWINDOW; _para2:longint; _para3:longint; _para4:longint; _para5:longint;
|
|
|
+ _para6:longint; _para7:longint):longint;Cdecl; External;
|
|
|
+ function prefresh(_para1:pWINDOW; _para2:longint; _para3:longint; _para4:longint; _para5:longint;
|
|
|
+ _para6:longint; _para7:longint):longint;Cdecl; External;
|
|
|
+ function putp(_para1:pchar):longint;Cdecl; External;
|
|
|
+ function putwin(_para1:pWINDOW; _para2:pFILE):longint;Cdecl; External;
|
|
|
+ function qiflush:longint;Cdecl; External;
|
|
|
+ function raw:longint;Cdecl; External;
|
|
|
+ function resetty:longint;Cdecl; External;
|
|
|
+ function reset_prog_mode:longint;Cdecl; External;
|
|
|
+ function reset_shell_mode:longint;Cdecl; External;
|
|
|
{
|
|
|
- $Log$
|
|
|
- Revision 1.5 2000-02-27 14:40:41 peter
|
|
|
- * removed warnings/notes
|
|
|
-
|
|
|
+ function ripoffline(_para1:longint; init:function (_para1:pWINDOW; _para2:longint):longint):longint;Cdecl; External;
|
|
|
+}
|
|
|
+ function savetty:longint;Cdecl; External;
|
|
|
+ function scr_dump(_para1:pchar):longint;Cdecl; External;
|
|
|
+ function scr_init(_para1:pchar):longint;Cdecl; External;
|
|
|
+ function scrollok(_para1:pWINDOW; _para2:bool):longint;Cdecl; External;
|
|
|
+ function scr_restore(_para1:pchar):longint;Cdecl; External;
|
|
|
+ function scr_set(_para1:pchar):longint;Cdecl; External;
|
|
|
+ function slk_attroff(_para1:attr_t):longint;Cdecl; External;
|
|
|
+ function slk_attron(_para1:attr_t):longint;Cdecl; External;
|
|
|
+ function slk_attrset(_para1:attr_t):longint;Cdecl; External;
|
|
|
+ function slk_attr:attr_t;Cdecl; External;
|
|
|
+ function slk_clear:longint;Cdecl; External;
|
|
|
+ function slk_init(_para1:longint):longint;Cdecl; External;
|
|
|
+ function slk_noutrefresh:longint;Cdecl; External;
|
|
|
+ function slk_refresh:longint;Cdecl; External;
|
|
|
+ function slk_restore:longint;Cdecl; External;
|
|
|
+ function slk_set(_para1:longint; _para2:pchar; _para3:longint):longint;Cdecl; External;
|
|
|
+ function slk_touch:longint;Cdecl; External;
|
|
|
+ function start_color:longint;Cdecl; External;
|
|
|
+ function syncok(_para1:pWINDOW; _para2:bool):longint;Cdecl; External;
|
|
|
+ function termattrs:chtype;Cdecl; External;
|
|
|
+ function tigetflag(_para1:pchar):longint;Cdecl; External;
|
|
|
+ function tigetnum(_para1:pchar):longint;Cdecl; External;
|
|
|
+ function typeahead(_para1:longint):longint;Cdecl; External;
|
|
|
+ function ungetch(_para1:longint):longint;Cdecl; External;
|
|
|
+ procedure use_env(_para1:bool);Cdecl; External;
|
|
|
+ function vidattr(_para1:chtype):longint;Cdecl; External;
|
|
|
+{
|
|
|
+ function vidputs(_para1:chtype; _para2:function (_para1:longint):longint):longint;Cdecl; External;
|
|
|
+ function vwprintw(_para1:pWINDOW; _para2:pchar; _para3:va_list):longint;Cdecl; External;
|
|
|
+ function vwscanw(_para1:pWINDOW; _para2:pchar; _para3:va_list):longint;Cdecl; External;
|
|
|
}
|
|
|
+ function waddch(_para1:pWINDOW; _para2:chtype):longint;Cdecl; External;
|
|
|
+ function waddchnstr(_para1:pWINDOW; _para2:pchtype; _para3:longint):longint;Cdecl; External;
|
|
|
+ function waddnstr(_para1:pWINDOW; _para2:pchar; _para3:longint):longint;Cdecl; External;
|
|
|
+ function wattr_on(_para1:pWINDOW; _para2:attr_t):longint;Cdecl; External;
|
|
|
+ function wattr_off(_para1:pWINDOW; _para2:attr_t):longint;Cdecl; External;
|
|
|
+ function wbkgd(_para1:pWINDOW; _para2:chtype):longint;Cdecl; External;
|
|
|
+ procedure wbkgdset(_para1:pWINDOW; _para2:chtype);Cdecl; External;
|
|
|
+ function wborder(_para1:pWINDOW; _para2:chtype; _para3:chtype; _para4:chtype; _para5:chtype;
|
|
|
+ _para6:chtype; _para7:chtype; _para8:chtype; _para9:chtype):longint;Cdecl; External;
|
|
|
+ function wchgat(_para1:pWINDOW; _para2:longint; _para3:attr_t; _para4:longint; _para5:pointer):longint;Cdecl; External;
|
|
|
+ function wclear(_para1:pWINDOW):longint;Cdecl; External;
|
|
|
+ function wclrtobot(_para1:pWINDOW):longint;Cdecl; External;
|
|
|
+ function wclrtoeol(_para1:pWINDOW):longint;Cdecl; External;
|
|
|
+ procedure wcursyncup(_para1:pWINDOW);Cdecl; External;
|
|
|
+ function wdelch(_para1:pWINDOW):longint;Cdecl; External;
|
|
|
+ function wechochar(_para1:pWINDOW; _para2:chtype):longint;Cdecl; External;
|
|
|
+ function werase(_para1:pWINDOW):longint;Cdecl; External;
|
|
|
+ function wgetch(_para1:pWINDOW):longint;Cdecl; External;
|
|
|
+ function wgetnstr(_para1:pWINDOW; _para2:pchar; _para3:longint):longint;Cdecl; External;
|
|
|
+ function whline(_para1:pWINDOW; _para2:chtype; _para3:longint):longint;Cdecl; External;
|
|
|
+ function winchnstr(_para1:pWINDOW; _para2:pchtype; _para3:longint):longint;Cdecl; External;
|
|
|
+ function winnstr(_para1:pWINDOW; _para2:pchar; _para3:longint):longint;Cdecl; External;
|
|
|
+ function winsch(_para1:pWINDOW; _para2:chtype):longint;Cdecl; External;
|
|
|
+ function winsdelln(_para1:pWINDOW; _para2:longint):longint;Cdecl; External;
|
|
|
+ function winsnstr(_para1:pWINDOW; _para2:pchar; _para3:longint):longint;Cdecl; External;
|
|
|
+ function wmove(_para1:pWINDOW; _para2:longint; _para3:longint):longint;Cdecl; External;
|
|
|
+ function wnoutrefresh(_para1:pWINDOW):longint;Cdecl; External;
|
|
|
+ function wredrawln(_para1:pWINDOW; _para2:longint; _para3:longint):longint;Cdecl; External;
|
|
|
+ function wrefresh(_para1:pWINDOW):longint;Cdecl; External;
|
|
|
+ function wscrl(_para1:pWINDOW; _para2:longint):longint;Cdecl; External;
|
|
|
+ function wsetscrreg(_para1:pWINDOW; _para2:longint; _para3:longint):longint;Cdecl; External;
|
|
|
+ procedure wsyncdown(_para1:pWINDOW);Cdecl; External;
|
|
|
+ procedure wsyncup(_para1:pWINDOW);Cdecl; External;
|
|
|
+ function wtimeout(_para1:pWINDOW; _para2:longint):longint;Cdecl; External;
|
|
|
+ function wtouchln(_para1:pWINDOW; _para2:longint; _para3:longint; _para4:longint):longint;Cdecl; External;
|
|
|
+ function wvline(_para1:pWINDOW; _para2:chtype; _para3:longint):longint;Cdecl; External;
|
|
|
+ function mvwchgat(_para1:pWINDOW; _para2:longint; _para3:longint;
|
|
|
+ _para4:longint; _para5:longint; _para6:longint;
|
|
|
+ _para7:longint):longint;Cdecl; External;
|
|
|
+
|
|
|
+ function wgetstr(w : pwindow;s : pchar) : longint;
|
|
|
+ begin
|
|
|
+ wgetstr:=wgetnstr(w,s,-(1));
|
|
|
+ end;
|
|
|
+ function getnstr(s : pchar;n : longint) : longint;
|
|
|
+ begin
|
|
|
+ getnstr:=wgetnstr(stdscr,s,n);
|
|
|
+ end;
|
|
|
+ function setterm(term : longint) : longint;
|
|
|
+ begin
|
|
|
+ {
|
|
|
+ setterm:=setupterm(term,1,plongint(0));
|
|
|
+ }
|
|
|
+ end;
|
|
|
+ function fixterm : longint;
|
|
|
+ begin
|
|
|
+ fixterm:=reset_prog_mode;
|
|
|
+ end;
|
|
|
+ function resetterm : longint;
|
|
|
+ begin
|
|
|
+ resetterm:=reset_shell_mode;
|
|
|
+ end;
|
|
|
+ function saveterm : longint;
|
|
|
+ begin
|
|
|
+ saveterm:=def_prog_mode;
|
|
|
+ end;
|
|
|
+ function crmode : longint;
|
|
|
+ begin
|
|
|
+ crmode:=cbreak;
|
|
|
+ end;
|
|
|
+ function nocrmode : longint;
|
|
|
+ begin
|
|
|
+ nocrmode:=nocbreak;
|
|
|
+ end;
|
|
|
+ procedure getsyx(var y,x : longint);
|
|
|
+ begin
|
|
|
+ getyx(stdscr,y,x);
|
|
|
+ end;
|
|
|
+ function getattrs(win : pwindow) : longint;
|
|
|
+ var
|
|
|
+ if_local1 : longint;
|
|
|
+
|
|
|
+ begin
|
|
|
+ if win<>nil then
|
|
|
+ if_local1:=win^._attrs
|
|
|
+ else
|
|
|
+ if_local1:=A_NORMAL;
|
|
|
+ getattrs:=if_local1;
|
|
|
+ end;
|
|
|
+ function getcurx(win : pwindow) : longint;
|
|
|
+ var
|
|
|
+ if_local1 : longint;
|
|
|
+
|
|
|
+ begin
|
|
|
+ if win<>nil then
|
|
|
+ if_local1:=win^._curx
|
|
|
+ else
|
|
|
+ if_local1:=ERR;
|
|
|
+ getcurx:=if_local1;
|
|
|
+ end;
|
|
|
+ function getcury(win : pwindow) : longint;
|
|
|
+ var
|
|
|
+ if_local1 : longint;
|
|
|
+
|
|
|
+ begin
|
|
|
+ if win<>Nil then
|
|
|
+ if_local1:=win^._cury
|
|
|
+ else
|
|
|
+ if_local1:=ERR;
|
|
|
+ getcury:=if_local1;
|
|
|
+ end;
|
|
|
+ function getbegx(win : pwindow) : longint;
|
|
|
+ var
|
|
|
+ if_local1 : longint;
|
|
|
+
|
|
|
+ begin
|
|
|
+ if win<>Nil then
|
|
|
+ if_local1:=win^._begx
|
|
|
+ else
|
|
|
+ if_local1:=ERR;
|
|
|
+ getbegx:=if_local1;
|
|
|
+ end;
|
|
|
+ function getbegy(win : pwindow) : longint;
|
|
|
+ var
|
|
|
+ if_local1 : longint;
|
|
|
+
|
|
|
+ begin
|
|
|
+ if win<>Nil then
|
|
|
+ if_local1:=win^._begy
|
|
|
+ else
|
|
|
+ if_local1:=ERR;
|
|
|
+ getbegy:=if_local1;
|
|
|
+ end;
|
|
|
+ function getmaxx(win : pwindow) : longint;
|
|
|
+ var
|
|
|
+ if_local1 : longint;
|
|
|
+
|
|
|
+ begin
|
|
|
+ if win<>Nil then
|
|
|
+ if_local1:=(win^._maxx) + 1
|
|
|
+ else
|
|
|
+ if_local1:=ERR;
|
|
|
+ getmaxx:=if_local1;
|
|
|
+ end;
|
|
|
+ function getmaxy(win : pwindow) : longint;
|
|
|
+ var
|
|
|
+ if_local1 : longint;
|
|
|
+
|
|
|
+ begin
|
|
|
+ if win<>Nil then
|
|
|
+ if_local1:=(win^._maxy) + 1
|
|
|
+ else
|
|
|
+ if_local1:=ERR;
|
|
|
+ getmaxy:=if_local1;
|
|
|
+ end;
|
|
|
+ function getparx(win : pwindow) : longint;
|
|
|
+ var
|
|
|
+ if_local1 : longint;
|
|
|
+
|
|
|
+ begin
|
|
|
+ if win<>Nil then
|
|
|
+ if_local1:=win^._parx
|
|
|
+ else
|
|
|
+ if_local1:=ERR;
|
|
|
+ getparx:=if_local1;
|
|
|
+ end;
|
|
|
+ function getpary(win : pwindow) : longint;
|
|
|
+ var
|
|
|
+ if_local1 : longint;
|
|
|
+
|
|
|
+ begin
|
|
|
+ if win<>Nil then
|
|
|
+ if_local1:=win^._pary
|
|
|
+ else
|
|
|
+ if_local1:=ERR;
|
|
|
+ getpary:=if_local1;
|
|
|
+ end;
|
|
|
+ function wstandout(win : pwindow) : longint;
|
|
|
+ begin
|
|
|
+ wstandout:=wattr_set(win,A_STANDOUT);
|
|
|
+ end;
|
|
|
+ function wstandend(win : pwindow) : longint;
|
|
|
+ begin
|
|
|
+ wstandend:=wattr_set(win,A_NORMAL);
|
|
|
+ end;
|
|
|
+ function wattron(win : pwindow;at : longint) : longint;
|
|
|
+ begin
|
|
|
+ wattron:=wattr_on(win,at);
|
|
|
+ end;
|
|
|
+ function wattroff(win : pwindow;at : longint) : longint;
|
|
|
+ begin
|
|
|
+ wattroff:=wattr_off(win,at);
|
|
|
+ end;
|
|
|
+ function wattrset(win : pwindow;at : longint) : longint;
|
|
|
+ begin
|
|
|
+ wattrset:=wattr_set(win,at);
|
|
|
+ end;
|
|
|
+ function scroll(win : pwindow) : longint;
|
|
|
+ begin
|
|
|
+ scroll:=wscrl(win,1);
|
|
|
+ end;
|
|
|
+ function touchwin(win : pwindow) : longint;
|
|
|
+ begin
|
|
|
+ touchwin:=wtouchln(win,0,getmaxy(win),1);
|
|
|
+ end;
|
|
|
+ function touchline(win : pwindow;s,c : longint) : longint;
|
|
|
+ begin
|
|
|
+ touchline:=wtouchln(win,s,c,1);
|
|
|
+ end;
|
|
|
+ function untouchwin(win : pwindow) : longint;
|
|
|
+ begin
|
|
|
+ untouchwin:=wtouchln(win,0,getmaxy(win),0);
|
|
|
+ end;
|
|
|
+ function box(win : pwindow;v,h : longint) : longint;
|
|
|
+ begin
|
|
|
+ box:=wborder(win,v,v,h,h,0,0,0,0);
|
|
|
+ end;
|
|
|
+ function border(ls,rs,ts,bs,tl,tr,bl,br : longint) : longint;
|
|
|
+ begin
|
|
|
+ border:=wborder(stdscr,ls,rs,ts,bs,tl,tr,bl,br);
|
|
|
+ end;
|
|
|
+ function hline(ch,n : longint) : longint;
|
|
|
+ begin
|
|
|
+ hline:=whline(stdscr,ch,n);
|
|
|
+ end;
|
|
|
+ function vline(ch,n : longint) : longint;
|
|
|
+ begin
|
|
|
+ vline:=wvline(stdscr,ch,n);
|
|
|
+ end;
|
|
|
+ function winstr(w : pwindow;s : pchar) : longint;
|
|
|
+ begin
|
|
|
+ winstr:=winnstr(w,s,-(1));
|
|
|
+ end;
|
|
|
+ function winchstr(w : pwindow;s : pchar) : longint;
|
|
|
+ begin
|
|
|
+ {
|
|
|
+ winchstr:=winchnstr(w,s,-1);
|
|
|
+ }
|
|
|
+ end;
|
|
|
+ function winsstr(w : pwindow;s : pchar) : longint;
|
|
|
+ begin
|
|
|
+ winsstr:=winsnstr(w,s,-(1));
|
|
|
+ end;
|
|
|
+ function redrawwin(w : pwindow) : longint;
|
|
|
+ begin
|
|
|
+ redrawwin:=wredrawln(w,0,(w^._maxy) + 1);
|
|
|
+ end;
|
|
|
+ function waddstr(win : pwindow;st : pchar) : longint;
|
|
|
+ begin
|
|
|
+ waddstr:=waddnstr(win,st,-1);
|
|
|
+ end;
|
|
|
+ function waddchstr(win : pwindow;st : pchar) : longint;
|
|
|
+ begin
|
|
|
+ waddchstr:=waddchnstr(win,st,-1);
|
|
|
+ end;
|
|
|
+ function addch(ch : longint) : longint;
|
|
|
+ begin
|
|
|
+ addch:=waddch(stdscr,ch);
|
|
|
+ end;
|
|
|
+ function addchnstr(st : pchar;n : longint) : longint;
|
|
|
+ begin
|
|
|
+ addchnstr:=waddchnstr(stdscr,st,n);
|
|
|
+ end;
|
|
|
+ function addchstr(st : pchar) : longint;
|
|
|
+ begin
|
|
|
+ addchstr:=waddchstr(stdscr,st);
|
|
|
+ end;
|
|
|
+ function addnstr(st : pchar;n : longint) : longint;
|
|
|
+ begin
|
|
|
+ addnstr:=waddnstr(stdscr,st,n);
|
|
|
+ end;
|
|
|
+ function addstr(st : pchar) : longint;
|
|
|
+ begin
|
|
|
+ addstr:=waddnstr(stdscr,st,-1);
|
|
|
+ end;
|
|
|
+ function attroff(at : longint) : longint;
|
|
|
+ begin
|
|
|
+ attroff:=wattroff(stdscr,at);
|
|
|
+ end;
|
|
|
+ function attron(at : longint) : longint;
|
|
|
+ begin
|
|
|
+ attron:=wattron(stdscr,at);
|
|
|
+ end;
|
|
|
+ function attrset(at : longint) : longint;
|
|
|
+ begin
|
|
|
+ attrset:=wattrset(stdscr,at);
|
|
|
+ end;
|
|
|
+ function bkgd(ch : longint) : longint;
|
|
|
+ begin
|
|
|
+ bkgd:=wbkgd(stdscr,ch);
|
|
|
+ end;
|
|
|
+ procedure bkgdset(ch : longint);
|
|
|
+ begin
|
|
|
+ wbkgdset(stdscr,ch);
|
|
|
+ end;
|
|
|
+ function clear : longint;
|
|
|
+ begin
|
|
|
+ clear:=wclear(stdscr);
|
|
|
+ end;
|
|
|
+ function clrtobot : longint;
|
|
|
+ begin
|
|
|
+ clrtobot:=wclrtobot(stdscr);
|
|
|
+ end;
|
|
|
+ function clrtoeol : longint;
|
|
|
+ begin
|
|
|
+ clrtoeol:=wclrtoeol(stdscr);
|
|
|
+ end;
|
|
|
+ function delch : longint;
|
|
|
+ begin
|
|
|
+ delch:=wdelch(stdscr);
|
|
|
+ end;
|
|
|
+ function deleteln : longint;
|
|
|
+ begin
|
|
|
+ deleteln:=winsdelln(stdscr,-1);
|
|
|
+ end;
|
|
|
+ function echochar(c : longint) : longint;
|
|
|
+ begin
|
|
|
+ echochar:=wechochar(stdscr,c);
|
|
|
+ end;
|
|
|
+ function erase : longint;
|
|
|
+ begin
|
|
|
+ erase:=werase(stdscr);
|
|
|
+ end;
|
|
|
+ function getch : longint;
|
|
|
+ begin
|
|
|
+ getch:=wgetch(stdscr);
|
|
|
+ end;
|
|
|
+ function getstr(st : pchar) : longint;
|
|
|
+ begin
|
|
|
+ getstr:=wgetstr(stdscr,st);
|
|
|
+ end;
|
|
|
+ function inch : longint;
|
|
|
+ begin
|
|
|
+ inch:=winch(stdscr);
|
|
|
+ end;
|
|
|
+ function inchnstr(s : pchar;n : longint) : longint;
|
|
|
+ begin
|
|
|
+ inchnstr:=winchnstr(stdscr,s,n);
|
|
|
+ end;
|
|
|
+ function inchstr(s : pchar) : longint;
|
|
|
+ begin
|
|
|
+ inchstr:=winchstr(stdscr,s);
|
|
|
+ end;
|
|
|
+ function innstr(s : pchar;n : longint) : longint;
|
|
|
+ begin
|
|
|
+ innstr:=winnstr(stdscr,s,n);
|
|
|
+ end;
|
|
|
+ function insch(c : longint) : longint;
|
|
|
+ begin
|
|
|
+ insch:=winsch(stdscr,c);
|
|
|
+ end;
|
|
|
+ function insdelln(n : longint) : longint;
|
|
|
+ begin
|
|
|
+ insdelln:=winsdelln(stdscr,n);
|
|
|
+ end;
|
|
|
+ function insertln : longint;
|
|
|
+ begin
|
|
|
+ insertln:=winsdelln(stdscr,1);
|
|
|
+ end;
|
|
|
+ function insnstr(s : pchar;n : longint) : longint;
|
|
|
+ begin
|
|
|
+ insnstr:=winsnstr(stdscr,s,n);
|
|
|
+ end;
|
|
|
+ function insstr(s : pchar) : longint;
|
|
|
+ begin
|
|
|
+ insstr:=winsstr(stdscr,s);
|
|
|
+ end;
|
|
|
+ function instr(s : pchar) : longint;
|
|
|
+ begin
|
|
|
+ instr:=winstr(stdscr,s);
|
|
|
+ end;
|
|
|
+ function move(y,x : longint) : longint;
|
|
|
+ begin
|
|
|
+ move:=wmove(stdscr,y,x);
|
|
|
+ end;
|
|
|
+ function refresh : longint;
|
|
|
+ begin
|
|
|
+ refresh:=wrefresh(stdscr);
|
|
|
+ end;
|
|
|
+ function scrl(n : longint) : longint;
|
|
|
+ begin
|
|
|
+ scrl:=wscrl(stdscr,n);
|
|
|
+ end;
|
|
|
+ function setscrreg(t,b : longint) : longint;
|
|
|
+ begin
|
|
|
+ setscrreg:=wsetscrreg(stdscr,t,b);
|
|
|
+ end;
|
|
|
+ function standend : longint;
|
|
|
+ begin
|
|
|
+ standend:=wstandend(stdscr);
|
|
|
+ end;
|
|
|
+ function standout : longint;
|
|
|
+ begin
|
|
|
+ standout:=wstandout(stdscr);
|
|
|
+ end;
|
|
|
+ function timeout(delay : longint) : longint;
|
|
|
+ begin
|
|
|
+ timeout:=wtimeout(stdscr,delay);
|
|
|
+ end;
|
|
|
+ function wdeleteln(win : pwindow) : longint;
|
|
|
+ begin
|
|
|
+ wdeleteln:=winsdelln(win,-1);
|
|
|
+ end;
|
|
|
+ function winsertln(win : pwindow) : longint;
|
|
|
+ begin
|
|
|
+ winsertln:=winsdelln(win,1);
|
|
|
+ end;
|
|
|
+ function mvaddch(y,x,ch : longint) : longint;
|
|
|
+ begin
|
|
|
+ mvaddch:=mvwaddch(stdscr,y,x,ch);
|
|
|
+ end;
|
|
|
+ function mvaddchnstr(y,x: longint;st : pchar;n : longint) : longint;
|
|
|
+ begin
|
|
|
+ mvaddchnstr:=mvwaddchnstr(stdscr,y,x,st,n);
|
|
|
+ end;
|
|
|
+ function mvaddchstr(y,x : longint;st : pchar) : longint;
|
|
|
+ begin
|
|
|
+ mvaddchstr:=mvwaddchstr(stdscr,y,x,st);
|
|
|
+ end;
|
|
|
+ function mvaddnstr(y,x: longint;st : pchar; n : longint) : longint;
|
|
|
+ begin
|
|
|
+ mvaddnstr:=mvwaddnstr(stdscr,y,x,st,n);
|
|
|
+ end;
|
|
|
+ function mvaddstr(y,x : longint;st : pchar) : longint;
|
|
|
+ begin
|
|
|
+ mvaddstr:=mvwaddstr(stdscr,y,x,st);
|
|
|
+ end;
|
|
|
+ function mvdelch(y,x : longint) : longint;
|
|
|
+ begin
|
|
|
+ mvdelch:=mvwdelch(stdscr,y,x);
|
|
|
+ end;
|
|
|
+ function mvgetch(y,x : longint) : longint;
|
|
|
+ begin
|
|
|
+ mvgetch:=mvwgetch(stdscr,y,x);
|
|
|
+ end;
|
|
|
+ function mvgetnstr(y,x : longint;st : pchar;n : longint) : longint;
|
|
|
+ begin
|
|
|
+ mvgetnstr:=mvwgetnstr(stdscr,y,x,st,n);
|
|
|
+ end;
|
|
|
+ function mvgetstr(y,x: longint;st : pchar) : longint;
|
|
|
+ begin
|
|
|
+ mvgetstr:=mvwgetstr(stdscr,y,x,st);
|
|
|
+ end;
|
|
|
+ function mvhline(y,x : longint;c : chtype;n : longint) : longint;
|
|
|
+ begin
|
|
|
+ mvhline:=mvwhline(stdscr,y,x,c,n);
|
|
|
+ end;
|
|
|
+ function mvinch(y,x : longint) : longint;
|
|
|
+ begin
|
|
|
+ mvinch:=mvwinch(stdscr,y,x);
|
|
|
+ end;
|
|
|
+ function mvinchnstr(y,x : longint;s : pchar;n : longint) : longint;
|
|
|
+ begin
|
|
|
+ mvinchnstr:=mvwinchnstr(stdscr,y,x,s,n);
|
|
|
+ end;
|
|
|
+ function mvinchstr(y,x : longint;s : pchar) : longint;
|
|
|
+ begin
|
|
|
+ mvinchstr:=mvwinchstr(stdscr,y,x,s);
|
|
|
+ end;
|
|
|
+ function mvinnstr(y,x : longint;s : pchar;n : longint) : longint;
|
|
|
+ begin
|
|
|
+ mvinnstr:=mvwinnstr(stdscr,y,x,s,n);
|
|
|
+ end;
|
|
|
+ function mvinsch(y,x: longint;c : chtype) : longint;
|
|
|
+ begin
|
|
|
+ mvinsch:=mvwinsch(stdscr,y,x,c);
|
|
|
+ end;
|
|
|
+ function mvinsnstr(y,x : longint;s : pchar;n : longint) : longint;
|
|
|
+ begin
|
|
|
+ mvinsnstr:=mvwinsnstr(stdscr,y,x,s,n);
|
|
|
+ end;
|
|
|
+ function mvinsstr(y,x : longint;s : pchar) : longint;
|
|
|
+ begin
|
|
|
+ mvinsstr:=mvwinsstr(stdscr,y,x,s);
|
|
|
+ end;
|
|
|
+ function mvinstr(y,x : longint;s : pchar) : longint;
|
|
|
+ begin
|
|
|
+ mvinstr:=mvwinstr(stdscr,y,x,s);
|
|
|
+ end;
|
|
|
+ function mvvline(y,x,c,n : longint) : longint;
|
|
|
+ begin
|
|
|
+ mvvline:=mvwvline(stdscr,y,x,c,n);
|
|
|
+ end;
|
|
|
|
|
|
+ function attr_get : longint;
|
|
|
+ begin
|
|
|
+ attr_get:=wattr_get(stdscr);
|
|
|
+ end;
|
|
|
+ function attr_off(a : longint) : longint;
|
|
|
+ begin
|
|
|
+ attr_off:=wattr_off(stdscr,a);
|
|
|
+ end;
|
|
|
+ function attr_on(a : longint) : longint;
|
|
|
+ begin
|
|
|
+ attr_on:=wattr_on(stdscr,a);
|
|
|
+ end;
|
|
|
+ function attr_set(a : longint) : longint;
|
|
|
+ begin
|
|
|
+ attr_set:=wattr_set(stdscr,a);
|
|
|
+ end;
|
|
|
+ function box_set(w : pwindow;v,h : longint) : longint;
|
|
|
+ begin
|
|
|
+ {
|
|
|
+ box_set:=wborder_set(w,v,v,h,h,0,0,0,9);
|
|
|
+ }
|
|
|
+ end;
|
|
|
+ function chgat(n,a,c,o : longint) : longint;
|
|
|
+ begin
|
|
|
+ {
|
|
|
+ chgat:=wchgat(stdscr,n,a,c,o);
|
|
|
+ }
|
|
|
+ end;
|
|
|
+ function getbkgd(win : pwindow) : longint;
|
|
|
+ begin
|
|
|
+ getbkgd:=win^._bkgd;
|
|
|
+ end;
|
|
|
+ function hline_set(c,n : longint) : longint;
|
|
|
+ begin
|
|
|
+ {
|
|
|
+ hline_set:=whline_set(stdscr,c,n);
|
|
|
+ }
|
|
|
+ end;
|
|
|
+ function mvchgat(y,x,n,a,c,o : longint) : longint;
|
|
|
+ begin
|
|
|
+ mvchgat:=mvwchgat(stdscr,y,x,n,a,c,o);
|
|
|
+ end;
|
|
|
+
|
|
|
+ function mvhline_set(y,x,c,n : longint) : longint;
|
|
|
+ begin
|
|
|
+ {
|
|
|
+ mvhline_set:=mvwhline_set(stdscr,y,x,c,n);
|
|
|
+ }
|
|
|
+ end;
|
|
|
+ function mvvline_set(y,x,c,n : longint) : longint;
|
|
|
+ begin
|
|
|
+ {
|
|
|
+ mvvline_set:=mvwvline_set(stdscr,y,x,c,n);
|
|
|
+ }
|
|
|
+ end;
|
|
|
+ function slk_attr_off(a : longint) : longint;
|
|
|
+ begin
|
|
|
+ slk_attr_off:=slk_attroff(a);
|
|
|
+ end;
|
|
|
+ function slk_attr_on(a : longint) : longint;
|
|
|
+ begin
|
|
|
+ slk_attr_on:=slk_attron(a);
|
|
|
+ end;
|
|
|
+ function slk_attr_set(a : longint) : longint;
|
|
|
+ begin
|
|
|
+ slk_attr_set:=slk_attrset(a);
|
|
|
+ end;
|
|
|
+ function vid_attr(a : longint) : longint;
|
|
|
+ begin
|
|
|
+ vid_attr:=vidattr(a);
|
|
|
+ end;
|
|
|
+ function vline_set(c,n : longint) : longint;
|
|
|
+ begin
|
|
|
+ {
|
|
|
+ vline_set:=vhline_set(stdscr,c,n);
|
|
|
+ }
|
|
|
+ end;
|
|
|
+
|
|
|
+ function wattr_get(win : pwindow) : longint;
|
|
|
+ begin
|
|
|
+ wattr_get:=win^._attrs;
|
|
|
+ end;
|
|
|
+ function KEY_F(n : longint) : longint;
|
|
|
+ begin
|
|
|
+ KEY_F:=KEY_F0 + n;
|
|
|
+ end;
|
|
|
+ function mcprint(_para1:pchar; _para2:longint):longint;Cdecl; External;
|
|
|
+ function has_key(_para1:longint):longint;Cdecl; External;
|
|
|
+ function derwin (_para1:pWINDOW; _para2:longint; _para3:longint; _para4:longint; _para5:longint):PWINDOW;cdecl; external;
|
|
|
+ function dupwin (_para1:pWINDOW):PWINDOW;cdecl; external;
|
|
|
+ Function getwin (_para1:pFILE):PWINDOW;cdecl; external;
|
|
|
+ function initscr :PWINDOW;cdecl; external;
|
|
|
+ function keyname (_para1:longint):pchar;cdecl; external;
|
|
|
+ function longname :pchar;cdecl; external;
|
|
|
+ function newpad (_para1:longint; _para2:longint):PWINDOW;cdecl; external;
|
|
|
+ Function newterm (_para1:pchar; _para2:pFILE; _para3:pFILE):PSCREEN;cdecl; external;
|
|
|
+ Function newwin (_para1:longint; _para2:longint; _para3:longint; _para4:longint):PWINDOW;cdecl; external;
|
|
|
+ Function set_term (_para1:pSCREEN):PSCREEN;cdecl; external;
|
|
|
+ Function slk_label (_para1:longint):pchar;cdecl; external;
|
|
|
+ function subpad (_para1:pWINDOW; _para2:longint; _para3:longint; _para4:longint; _para5:longint):PWINDOW;cdecl; external;
|
|
|
+ Function subwin (_para1:pWINDOW; _para2:longint; _para3:longint; _para4:longint; _para5:longint):PWINDOW;cdecl; external;
|
|
|
+ Function termname :pchar;cdecl; external;
|
|
|
+ Function tigetstr (_para1:pchar):pchar;cdecl; external;
|
|
|
+
|
|
|
+ procedure getyx(win : pwindow; var y,x : longint);
|
|
|
+ begin
|
|
|
+ X:=ERR;
|
|
|
+ Y:=ERR;
|
|
|
+ if Win<>Nil then
|
|
|
+ begin
|
|
|
+ Y:=win^._cury;
|
|
|
+ X:=Win^._curx;
|
|
|
+ end;
|
|
|
+ end;
|
|
|
+ procedure getbegyx(win : pwindow; var y,x : longint);
|
|
|
+ begin
|
|
|
+ X:=ERR;
|
|
|
+ Y:=ERR;
|
|
|
+ if Win<>Nil then
|
|
|
+ begin
|
|
|
+ Y:=win^._begy;
|
|
|
+ X:=Win^._begx;
|
|
|
+ end;
|
|
|
+ end;
|
|
|
+ procedure getmaxyx(win : pwindow; var y,x : longint);
|
|
|
+ begin
|
|
|
+ X:=ERR;
|
|
|
+ Y:=ERR;
|
|
|
+ if Win<>Nil then
|
|
|
+ begin
|
|
|
+ Y:=win^._maxy+1;
|
|
|
+ X:=Win^._maxx+1;
|
|
|
+ end;
|
|
|
+ end;
|
|
|
+ procedure getparyx(win : pwindow; var y,x : longint);
|
|
|
+ begin
|
|
|
+ X:=ERR;
|
|
|
+ Y:=ERR;
|
|
|
+ if Win<>Nil then
|
|
|
+ begin
|
|
|
+ Y:=win^._pary;
|
|
|
+ X:=Win^._parx;
|
|
|
+ end;
|
|
|
+ end;
|
|
|
+ function winch (win : PWindow) : longint;
|
|
|
+ begin
|
|
|
+ if win<>nil then
|
|
|
+ winch:=win^._line[win^._cury].text[Win^ ._curx]
|
|
|
+ else
|
|
|
+ winch:=0;
|
|
|
+ end;
|
|
|
+ function wattr_set(win : pwindow; at : longint) : longint;
|
|
|
+ begin
|
|
|
+ If win<>nil then
|
|
|
+ begin
|
|
|
+ win^._attrs := at;
|
|
|
+ wattr_set:=at;
|
|
|
+ end
|
|
|
+ else
|
|
|
+ wattr_set:=0;
|
|
|
+ end;
|
|
|
+ procedure setsyx (y,x : longint);
|
|
|
+ begin
|
|
|
+ stdscr^._cury := y;
|
|
|
+ stdscr^._curx := x;
|
|
|
+ end;
|
|
|
+ function mvwaddch(win : pwindow;y,x : longint; ch : chtype) : longint;
|
|
|
+ begin
|
|
|
+ if wmove(win,y,x) = ERR then
|
|
|
+ exit(ERR)
|
|
|
+ else
|
|
|
+ exit(waddch(win,ch))
|
|
|
+ end;
|
|
|
+ function mvwaddchnstr(win : pwindow;y,x : longint;st : pchar;n : longint) : longint;
|
|
|
+ begin
|
|
|
+ if wmove (win,y,x)=ERR then
|
|
|
+ exit(ERR)
|
|
|
+ else
|
|
|
+ exit(waddchnstr(win,st,n))
|
|
|
+ end;
|
|
|
+ function mvwaddchstr(win : pwindow;y,x : longint;st : pchar) : longint;
|
|
|
+ begin
|
|
|
+ if wmove (win,y,x)=ERR then
|
|
|
+ exit(ERR)
|
|
|
+ else
|
|
|
+ exit(waddchnstr(win,st,-1))
|
|
|
+ end;
|
|
|
+ function mvwaddnstr(win : pwindow;y,x : longint;st : pchar;n : longint) : longint;
|
|
|
+ begin
|
|
|
+ if wmove (win,y,x)=ERR then
|
|
|
+ exit(ERR)
|
|
|
+ else
|
|
|
+ exit(waddnstr(win,st,n))
|
|
|
+ end;
|
|
|
+ function mvwaddstr(win : pwindow;y,x : longint;st : pchar) : longint;
|
|
|
+ begin
|
|
|
+ if wmove (win,y,x)=ERR then
|
|
|
+ exit(ERR)
|
|
|
+ else
|
|
|
+ exit(waddnstr(win,st,-1))
|
|
|
+ end;
|
|
|
+ function mvwdelch(win : pwindow;y,x : longint) : longint;
|
|
|
+ begin
|
|
|
+ if wmove (win,y,x)=ERR then
|
|
|
+ exit(ERR)
|
|
|
+ else
|
|
|
+ exit(wdelch(win))
|
|
|
+ end;
|
|
|
+ function mvwgetch(win : pwindow;y,x : longint) : longint;
|
|
|
+ begin
|
|
|
+ if wmove (win,y,x)=ERR then
|
|
|
+ exit(ERR)
|
|
|
+ else
|
|
|
+ exit(wgetch(win))
|
|
|
+ end;
|
|
|
+ function mvwgetnstr(win : pwindow;y,x : longint;st : pchar;n: longint) : longint;
|
|
|
+ begin
|
|
|
+ if wmove (win,y,x)=ERR then
|
|
|
+ exit(ERR)
|
|
|
+ else
|
|
|
+ exit(wgetnstr(win,st,n))
|
|
|
+ end;
|
|
|
+ function mvwgetstr(win : pwindow;y,x : longint;st: pchar) : longint;
|
|
|
+ begin
|
|
|
+ if wmove (win,y,x)=ERR then
|
|
|
+ exit(ERR)
|
|
|
+ else
|
|
|
+ exit(wgetstr(win,st))
|
|
|
+ end;
|
|
|
+ function mvwhline(win : pwindow;y,x : longint;c : chtype;n : longint) : longint;
|
|
|
+ begin
|
|
|
+ if wmove (win,y,x)=ERR then
|
|
|
+ exit(ERR)
|
|
|
+ else
|
|
|
+ exit(whline(win,c,n))
|
|
|
+ end;
|
|
|
+ function mvwinch(win : pwindow;y,x : longint) : longint;
|
|
|
+ begin
|
|
|
+ if wmove (win,y,x)=ERR then
|
|
|
+ exit(ERR)
|
|
|
+ else
|
|
|
+ exit(winch(win))
|
|
|
+ end;
|
|
|
+ function mvwinchnstr(win : pwindow;y,x : longint;s : pchar; n : longint) : longint;
|
|
|
+ begin
|
|
|
+ if wmove (win,y,x)=ERR then
|
|
|
+ exit(ERR)
|
|
|
+ else
|
|
|
+ exit(winchnstr(win,s,n))
|
|
|
+ end;
|
|
|
+ function mvwinchstr(win : pwindow;y,x : longint;s : pchar) : longint;
|
|
|
+ begin
|
|
|
+ if wmove (win,y,x)=ERR then
|
|
|
+ exit(ERR)
|
|
|
+ else
|
|
|
+ exit(winchstr(win,s))
|
|
|
+ end;
|
|
|
+ function mvwinnstr(win : pwindow;y,x : longint;s : pchar;n : longint) : longint;
|
|
|
+ begin
|
|
|
+ if wmove (win,y,x)=ERR then
|
|
|
+ exit(ERR)
|
|
|
+ else
|
|
|
+ exit(winnstr(win,s,n))
|
|
|
+ end;
|
|
|
+ function mvwinsch(win : pwindow;y,x : longint;c : chtype) : longint;
|
|
|
+ begin
|
|
|
+ if wmove (win,y,x)=ERR then
|
|
|
+ exit(ERR)
|
|
|
+ else
|
|
|
+ exit(winsch(win,c))
|
|
|
+ end;
|
|
|
+ function mvwinsnstr(win : pwindow;y,x : longint;s : pchar;n : longint) : longint;
|
|
|
+ begin
|
|
|
+ if wmove (win,y,x)=ERR then
|
|
|
+ exit(ERR)
|
|
|
+ else
|
|
|
+ exit(winsnstr(win,s,n))
|
|
|
+ end;
|
|
|
+ function mvwinsstr(win : pwindow;y,x : longint;s : pchar) : longint;
|
|
|
+ begin
|
|
|
+ if wmove (win,y,x)=ERR then
|
|
|
+ exit(ERR)
|
|
|
+ else
|
|
|
+ exit(winsstr(win,s))
|
|
|
+ end;
|
|
|
+ function mvwinstr(win : pwindow;y,x : longint;s : pchar) : longint;
|
|
|
+ begin
|
|
|
+ if wmove (win,y,x)=ERR then
|
|
|
+ exit(ERR)
|
|
|
+ else
|
|
|
+ exit(winstr(win,s))
|
|
|
+ end;
|
|
|
+ function mvwvline(win : pwindow;y,x : longint;c : chtype;n : longint) : longint;
|
|
|
+ begin
|
|
|
+ if wmove (win,y,x)=ERR then
|
|
|
+ exit(ERR)
|
|
|
+ else
|
|
|
+ exit(wvline(win,c,n))
|
|
|
+ end;
|
|
|
+ function color_pair(n : longint): longint;
|
|
|
+ begin
|
|
|
+ color_pair:=n shl 8;
|
|
|
+ end;
|
|
|
+
|
|
|
+ function ACS_ULCORNER : chtype;
|
|
|
+ begin
|
|
|
+ ACS_ULCORNER:=acs_map['l'];
|
|
|
+ end;
|
|
|
+ function ACS_LLCORNER : chtype;
|
|
|
+ begin
|
|
|
+ ACS_LLCORNER:=acs_map['m'];
|
|
|
+ end;
|
|
|
+ function ACS_URCORNER : chtype;
|
|
|
+ begin
|
|
|
+ ACS_URCORNER:=acs_map['k'];
|
|
|
+ end;
|
|
|
+ function ACS_LRCORNER : chtype;
|
|
|
+ begin
|
|
|
+ ACS_LRCORNER:=acs_map['j'];
|
|
|
+ end;
|
|
|
+ function ACS_LTEE : chtype;
|
|
|
+ begin
|
|
|
+ ACS_LTEE:=acs_map['t'];
|
|
|
+ end;
|
|
|
+ function ACS_RTEE : chtype;
|
|
|
+ begin
|
|
|
+ ACS_RTEE:=acs_map['u'];
|
|
|
+ end;
|
|
|
+ function ACS_BTEE : chtype;
|
|
|
+ begin
|
|
|
+ ACS_BTEE:=acs_map['v'];
|
|
|
+ end;
|
|
|
+ function ACS_TTEE : chtype;
|
|
|
+ begin
|
|
|
+ ACS_TTEE:=acs_map['w'];
|
|
|
+ end;
|
|
|
+ function ACS_HLINE : chtype;
|
|
|
+ begin
|
|
|
+ {-----------------
|
|
|
+ o = upper line
|
|
|
+ q = middle line
|
|
|
+ s = bottom line
|
|
|
+ -----------------}
|
|
|
+ ACS_HLINE:=acs_map['q'];
|
|
|
+ end;
|
|
|
+ function ACS_VLINE : chtype;
|
|
|
+ begin
|
|
|
+ ACS_VLINE:=acs_map['x'];
|
|
|
+ end;
|
|
|
+ function ACS_PLUS : chtype;
|
|
|
+ begin
|
|
|
+ ACS_PLUS:=acs_map['n'];
|
|
|
+ end;
|
|
|
+ function ACS_S1 : chtype;
|
|
|
+ begin
|
|
|
+ ACS_S1 :=acs_map['o'];
|
|
|
+ end;
|
|
|
+ function ACS_S9 : chtype;
|
|
|
+ begin
|
|
|
+ ACS_S9 :=acs_map['s'];
|
|
|
+ end;
|
|
|
+ function ACS_DIAMOND : chtype;
|
|
|
+ begin
|
|
|
+ ACS_DIAMOND:=acs_map['`'];
|
|
|
+ end;
|
|
|
+ function ACS_CKBOARD : chtype;
|
|
|
+ begin
|
|
|
+ ACS_CKBOARD:=acs_map['a'];
|
|
|
+ end;
|
|
|
+ function ACS_DEGREE : chtype;
|
|
|
+ begin
|
|
|
+ ACS_DEGREE:=acs_map['f'];
|
|
|
+ end;
|
|
|
+ function ACS_PLMINUS : chtype;
|
|
|
+ begin
|
|
|
+ ACS_PLMINUS:=acs_map['g'];
|
|
|
+ end;
|
|
|
+ function ACS_BULLET : chtype;
|
|
|
+ begin
|
|
|
+ ACS_BULLET:=acs_map['~'];
|
|
|
+ end;
|
|
|
+
|
|
|
+ function ACS_LARROW : chtype;
|
|
|
+ begin
|
|
|
+ ACS_LARROW:=acs_map[','];
|
|
|
+ end;
|
|
|
+ function ACS_RARROW : chtype;
|
|
|
+ begin
|
|
|
+ ACS_RARROW:=acs_map['+'];
|
|
|
+ end;
|
|
|
+ function ACS_DARROW : chtype;
|
|
|
+ begin
|
|
|
+ ACS_DARROW:=acs_map['.'];
|
|
|
+ end;
|
|
|
+ function ACS_UARROW : chtype;
|
|
|
+ begin
|
|
|
+ ACS_UARROW:=acs_map['-'];
|
|
|
+ end;
|
|
|
+ function ACS_BOARD : chtype;
|
|
|
+ begin
|
|
|
+ ACS_BOARD:=acs_map['h'];
|
|
|
+ end;
|
|
|
+ function ACS_LANTERN : chtype;
|
|
|
+ begin
|
|
|
+ ACS_LANTERN:=acs_map['i'];
|
|
|
+ end;
|
|
|
+ function ACS_BLOCK : chtype;
|
|
|
+ begin
|
|
|
+ ACS_BLOCK:=acs_map['0'];
|
|
|
+ end;
|
|
|
+ function ACS_S3 : chtype;
|
|
|
+ begin
|
|
|
+ ACS_S3 :=acs_map['p'];
|
|
|
+ end;
|
|
|
+ function ACS_S7 : chtype;
|
|
|
+ begin
|
|
|
+ ACS_S7 :=acs_map['r'];
|
|
|
+ end;
|
|
|
+ function ACS_LEQUAL : chtype;
|
|
|
+ begin
|
|
|
+ ACS_LEQUAL:=acs_map['y'];
|
|
|
+ end;
|
|
|
+ function ACS_GEQUAL : chtype;
|
|
|
+ begin
|
|
|
+ ACS_GEQUAL:=acs_map['z'];
|
|
|
+ end;
|
|
|
+ function ACS_PI : chtype;
|
|
|
+ begin
|
|
|
+ ACS_PI :=acs_map['{'];
|
|
|
+ end;
|
|
|
+ function ACS_NEQUAL : chtype;
|
|
|
+ begin
|
|
|
+ ACS_NEQUAL:=acs_map['|'];
|
|
|
+ end;
|
|
|
+ function ACS_STERLING : chtype;
|
|
|
+ begin
|
|
|
+ ACS_STERLING:=acs_map['}'];
|
|
|
+ end;
|
|
|
+end.
|
Jonas Maebe