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