mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-07-21 02:56:06 +02:00
42 lines
647 B
ObjectPascal
42 lines
647 B
ObjectPascal
{
|
|
$Id$
|
|
|
|
Simple ncurses test
|
|
}
|
|
program testn;
|
|
uses
|
|
ncurses;
|
|
|
|
var
|
|
win : pWINDOW;
|
|
begin
|
|
if initscr=Nil then halt(1);
|
|
start_color;
|
|
win:= newwin (10,60,10,10);
|
|
if win=nil then
|
|
begin
|
|
endwin;
|
|
halt(1);
|
|
end;
|
|
init_pair(1,COLOR_WHITE,COLOR_BLUE);
|
|
wbkgd(win, COLOR_PAIR(1));
|
|
erase;
|
|
refresh;
|
|
box(win, ACS_VLINE, ACS_HLINE);
|
|
wrefresh(win);
|
|
mvwaddstr(win,1,1,'Press any key to continue !');
|
|
wrefresh(win);
|
|
raw;
|
|
wgetch(win);
|
|
endwin;
|
|
end.
|
|
{
|
|
$Log$
|
|
Revision 1.2 2002-09-07 15:43:01 peter
|
|
* old logs removed and tabs fixed
|
|
|
|
Revision 1.1 2002/01/29 17:55:18 peter
|
|
* splitted to base and extra
|
|
|
|
}
|