freepascal.compiler/packages/ncurses/examples/menu_demo.pp

uses
  ncurses,menu;

const
  choices : array[0..5] of PAnsiChar = (
                        'Choice 1',
                        'Choice 2',
                        'Choice 3',
                        'Choice 4',
                        'Exit',
                        nil
                  );
procedure print_in_middle(win : PWINDOW;starty,startx,width : longint;_string : PAnsiChar;color : chtype);
  var
    length,x,y : longint;
    temp : single;
  begin
        if win=nil then
          win:=stdscr;
        getyx(win, y, x);
        if startx <> 0 then
          x := startx;
        if starty <> 0 then
                y := starty;
        if width=0 then
          width := 80;

        length := strlen(_string);
        temp := (width - length)/ 2;
        x := startx + round(temp);
        wattron(win, color);
        mvwprintw(win, y, x, '%s', _string);
        wattroff(win, color);
        refresh;
  end;

var
  my_items : ppitem;
  c : longint;
  my_menu : pmenu;
  my_menu_win : pwindow;
  i,n_choices : longint;

begin
        { Initialize curses }
        initscr;
        start_color;
        cbreak;
        noecho;
        keypad(stdscr, true);
        init_pair(1, COLOR_RED, COLOR_BLACK);

        { Create items }
        n_choices := high(choices);
        getmem(my_items,(n_choices+1)*sizeof(pitem));
        my_items[n_choices]:=nil;
        for i:=0 to n_choices-1 do
          my_items[i] := new_item(choices[i], choices[i]);

        { Create menu }
        my_menu := new_menu(ppitem(my_items));

        { Create the window to be associated with the menu }
        my_menu_win := newwin(10, 40, 4, 4);
        keypad(my_menu_win, true);

        { Set main window and sub window }
        set_menu_win(my_menu, my_menu_win);
        set_menu_sub(my_menu, derwin(my_menu_win, 6, 38, 3, 1));

        { Set menu mark to the string ' * ' }
        set_menu_mark(my_menu, ' * ');

        { Print a border around the main window and print a title }
        box(my_menu_win, 0, 0);
        print_in_middle(my_menu_win, 1, 0, 40, 'My Menu', COLOR_PAIR(1));
        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');
        refresh();

        { Post the menu }
        post_menu(my_menu);
        wrefresh(my_menu_win);

        c:=wgetch(my_menu_win);
        while(c<> KEY_F(1)) do
          begin
            case c of
              KEY_DOWN:
                menu_driver(my_menu, REQ_DOWN_ITEM);
              KEY_UP:
                menu_driver(my_menu, REQ_UP_ITEM);
            end;
            wrefresh(my_menu_win);
            c:=wgetch(my_menu_win);
          end;

        { Unpost and free all the memory taken up }
        unpost_menu(my_menu);
        free_menu(my_menu);
        for i:=0 to n_choices-1 do
          free_item(my_items[i]);
        endwin();
end.