1
2unit panel;
3interface
4
5uses
6  ncurses;
7
8
9{$PACKRECORDS C}
10{$linklib panelw}
11
12const
13   libpanel = 'panelw';
14
15type
16   PPANEL  = ^TPANEL;
17   TPANEL = record
18        win : PWINDOW;
19        below : PPANEL;
20        above : PPANEL;
21        user : Pointer;
22     end;
23
24function panel_window(_para1:PPANEL):PWINDOW; cdecl;external libpanel;
25procedure update_panels; cdecl;external libpanel;
26function hide_panel(_para1:PPANEL):Longint; cdecl;external libpanel;
27function show_panel(_para1:PPANEL):Longint; cdecl;external libpanel;
28function del_panel(_para1:PPANEL):Longint; cdecl;external libpanel;
29function top_panel(_para1:PPANEL):Longint; cdecl;external libpanel;
30function bottom_panel(_para1:PPANEL):Longint; cdecl;external libpanel;
31function new_panel(_para1:PWINDOW):PPANEL; cdecl;external libpanel;
32function panel_above(_para1:PPANEL):PPANEL; cdecl;external libpanel;
33function panel_below(_para1:PPANEL):PPANEL; cdecl;external libpanel;
34function set_panel_userptr(_para1:PPANEL; _para2:pointer):Longint; cdecl;external libpanel;
35function panel_userptr(_para1:PPANEL):pointer; cdecl;external libpanel;
36function move_panel(_para1:PPANEL; _para2:Longint; _para3:Longint):Longint; cdecl;external libpanel;
37function replace_panel(_para1:PPANEL; _para2:PWINDOW):Longint; cdecl;external libpanel;
38function panel_hidden(_para1:PPANEL):Longint; cdecl;external libpanel;
39
40implementation
41end.
42