blob: 46dca531e766bf30859687e4d850dcdb9d2d6c41 (
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
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
|
{ Parsed from Appkit.framework NSPanel.h }
{$ifdef TYPES}
{$ifndef NSPANEL_PAS_T}
{$define NSPANEL_PAS_T}
{ Constants }
const
NSAlertDefaultReturn = 1;
NSAlertAlternateReturn = 0;
NSAlertOtherReturn = -1;
NSAlertErrorReturn = -2;
const
NSOKButton = 1;
NSCancelButton = 0;
const
NSUtilityWindowMask = 1 shl 4;
NSDocModalWindowMask = 1 shl 6;
const
NSNonactivatingPanelMask = 1 shl 7;
const
NSHUDWindowMask = 1 shl 13;
{$endif}
{$endif}
{$ifdef RECORDS}
{$ifndef NSPANEL_PAS_R}
{$define NSPANEL_PAS_R}
{$endif}
{$endif}
{$ifdef FUNCTIONS}
{$ifndef NSPANEL_PAS_F}
{$define NSPANEL_PAS_F}
{ Functions }
function NSRunAlertPanel(title: NSString; msgFormat: NSString; defaultButton: NSString; alternateButton: NSString; otherButton: NSString; varargs: array of const): NSInteger; cdecl; external;
function NSRunInformationalAlertPanel(title: NSString; msgFormat: NSString; defaultButton: NSString; alternateButton: NSString; otherButton: NSString; varargs: array of const): NSInteger; cdecl; external;
function NSRunCriticalAlertPanel(title: NSString; msgFormat: NSString; defaultButton: NSString; alternateButton: NSString; otherButton: NSString; varargs: array of const): NSInteger; cdecl; external;
function NSRunAlertPanelRelativeToWindow(title: NSString; msgFormat: NSString; defaultButton: NSString; alternateButton: NSString; otherButton: NSString; docWindow: NSWindow; varargs: array of const): NSInteger; cdecl; external; deprecated 'in Mac OS X 10 and later';
function NSRunInformationalAlertPanelRelativeToWindow(title: NSString; msgFormat: NSString; defaultButton: NSString; alternateButton: NSString; otherButton: NSString; docWindow: NSWindow; varargs: array of const): NSInteger; cdecl; external; deprecated 'in Mac OS X 10 and later';
function NSRunCriticalAlertPanelRelativeToWindow(title: NSString; msgFormat: NSString; defaultButton: NSString; alternateButton: NSString; otherButton: NSString; docWindow: NSWindow; varargs: array of const): NSInteger; cdecl; external; deprecated 'in Mac OS X 10 and later';
procedure NSBeginAlertSheet(title: NSString; defaultButton: NSString; alternateButton: NSString; otherButton: NSString; docWindow: NSWindow; modalDelegate: id; didEndSelector: SEL; didDismissSelector: SEL; contextInfo: Pointer; msgFormat: NSString; varargs: array of const); cdecl; external;
procedure NSBeginInformationalAlertSheet(title: NSString; defaultButton: NSString; alternateButton: NSString; otherButton: NSString; docWindow: NSWindow; modalDelegate: id; didEndSelector: SEL; didDismissSelector: SEL; contextInfo: Pointer; msgFormat: NSString; varargs: array of const); cdecl; external;
procedure NSBeginCriticalAlertSheet(title: NSString; defaultButton: NSString; alternateButton: NSString; otherButton: NSString; docWindow: NSWindow; modalDelegate: id; didEndSelector: SEL; didDismissSelector: SEL; contextInfo: Pointer; msgFormat: NSString; varargs: array of const); cdecl; external;
function NSGetAlertPanel(title: NSString; msgFormat: NSString; defaultButton: NSString; alternateButton: NSString; otherButton: NSString; varargs: array of const): id; cdecl; external;
function NSGetInformationalAlertPanel(title: NSString; msgFormat: NSString; defaultButton: NSString; alternateButton: NSString; otherButton: NSString; varargs: array of const): id; cdecl; external;
function NSGetCriticalAlertPanel(title: NSString; msgFormat: NSString; defaultButton: NSString; alternateButton: NSString; otherButton: NSString; varargs: array of const): id; cdecl; external;
procedure NSReleaseAlertPanel(panel: id); cdecl; external;
{$endif}
{$endif}
{$ifdef EXTERNAL_SYMBOLS}
{$ifndef NSPANEL_PAS_S}
{$define NSPANEL_PAS_S}
{$endif}
{$endif}
{$ifdef FORWARD}
NSPanel = objcclass;
NSPanelPointer = ^NSPanel;
NSPanelPtr = NSPanelPointer;
{$endif}
{$ifdef CLASSES}
{$ifndef NSPANEL_PAS_C}
{$define NSPANEL_PAS_C}
{ NSPanel }
NSPanel = objcclass external (NSWindow)
public
function isFloatingPanel: Boolean; message 'isFloatingPanel';
procedure setFloatingPanel(flag: Boolean); message 'setFloatingPanel:';
function becomesKeyOnlyIfNeeded: Boolean; message 'becomesKeyOnlyIfNeeded';
procedure setBecomesKeyOnlyIfNeeded(flag: Boolean); message 'setBecomesKeyOnlyIfNeeded:';
function worksWhenModal: Boolean; message 'worksWhenModal';
procedure setWorksWhenModal(flag: Boolean); message 'setWorksWhenModal:';
end;
{$endif}
{$endif}
|
