paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 11:49:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed compilation with current FPC versions

Browse Source 
git-svn-id: trunk@20476 -
This commit is contained in:
Jonas Maebe 2012-03-07 12:38:28 +00:00
parent 841d67ec81
commit d305615132
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
packages/ncurses/examples/menu_demo.pp
View File

@ -29,7 +29,7 @@ procedure print_in_middle(win : PWINDOW;starty,startx,width : longint;_string :
temp := (width - length)/ 2;
x := startx + round(temp);
wattron(win, color);
mvwprintw(win, y, x, '%s', [_string]);
mvwprintw(win, y, x, '%s', _string);
wattroff(win, color);
refresh;
end;
@ -47,7 +47,7 @@ begin
start_color;
cbreak;
noecho;
keypad(stdscr, 1);
keypad(stdscr, true);
init_pair(1, COLOR_RED, COLOR_BLACK);
{ Create items }
@ -61,7 +61,7 @@ begin
{ Create the window to be associated with the menu }
my_menu_win := newwin(10, 40, 4, 4);
keypad(my_menu_win, 1);
keypad(my_menu_win, true);
{ Set main window and sub window }
set_menu_win(my_menu, my_menu_win);
@ -76,7 +76,7 @@ begin
mvwaddch(my_menu_win, 2, 0, ACS_LTEE);
mvwhline(my_menu_win, 2, 1, ACS_HLINE, 38);
mvwaddch(my_menu_win, 2, 39, ACS_RTEE);
mvprintw(LINES - 2, 0, 'F1 to exit',[]);
mvprintw(LINES - 2, 0, 'F1 to exit');
refresh();
{ Post the menu }