paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-29 09:00:30 +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; temp := (width - length)/ 2;
x := startx + round(temp); x := startx + round(temp);
wattron(win, color); wattron(win, color);
mvwprintw(win, y, x, '%s', [_string]); mvwprintw(win, y, x, '%s', _string);
wattroff(win, color); wattroff(win, color);
refresh; refresh;
end; end;
@ -47,7 +47,7 @@ begin
start_color; start_color;
cbreak; cbreak;
noecho; noecho;
keypad(stdscr, 1); keypad(stdscr, true);
init_pair(1, COLOR_RED, COLOR_BLACK); init_pair(1, COLOR_RED, COLOR_BLACK);
{ Create items } { Create items }
@ -61,7 +61,7 @@ begin
{ Create the window to be associated with the menu } { Create the window to be associated with the menu }
my_menu_win := newwin(10, 40, 4, 4); 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 main window and sub window }
set_menu_win(my_menu, my_menu_win); set_menu_win(my_menu, my_menu_win);
@ -76,7 +76,7 @@ begin
mvwaddch(my_menu_win, 2, 0, ACS_LTEE); mvwaddch(my_menu_win, 2, 0, ACS_LTEE);
mvwhline(my_menu_win, 2, 1, ACS_HLINE, 38); mvwhline(my_menu_win, 2, 1, ACS_HLINE, 38);
mvwaddch(my_menu_win, 2, 39, ACS_RTEE); mvwaddch(my_menu_win, 2, 39, ACS_RTEE);
mvprintw(LINES - 2, 0, 'F1 to exit',[]); mvprintw(LINES - 2, 0, 'F1 to exit');
refresh(); refresh();
{ Post the menu } { Post the menu }