blob: 14d9654cdeb991ed4a1a8ae0d37426017b2142fc (
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
93
94
95
96
97
98
99
100
101
102
103
|
{ Parsed from Appkit.framework NSTextField.h }
{$ifdef TYPES}
{$ifndef NSTEXTFIELD_PAS_T}
{$define NSTEXTFIELD_PAS_T}
{$endif}
{$endif}
{$ifdef RECORDS}
{$ifndef NSTEXTFIELD_PAS_R}
{$define NSTEXTFIELD_PAS_R}
{$endif}
{$endif}
{$ifdef FUNCTIONS}
{$ifndef NSTEXTFIELD_PAS_F}
{$define NSTEXTFIELD_PAS_F}
{$endif}
{$endif}
{$ifdef EXTERNAL_SYMBOLS}
{$ifndef NSTEXTFIELD_PAS_S}
{$define NSTEXTFIELD_PAS_S}
{$endif}
{$endif}
{$ifdef FORWARD}
NSTextFieldDelegateProtocol = objcprotocol;
NSTextField = objcclass;
NSTextFieldPointer = ^NSTextField;
NSTextFieldPtr = NSTextFieldPointer;
{$endif}
{$ifdef CLASSES}
{$ifndef NSTEXTFIELD_PAS_C}
{$define NSTEXTFIELD_PAS_C}
{ NSTextField }
NSTextField = objcclass external (NSControl, NSUserInterfaceValidationsProtocol)
private
_delegate: id;
_errorAction: SEL;
public
procedure setBackgroundColor(color: NSColor); message 'setBackgroundColor:';
function backgroundColor: NSColor; message 'backgroundColor';
procedure setDrawsBackground(flag: Boolean); message 'setDrawsBackground:';
function drawsBackground: Boolean; message 'drawsBackground';
procedure setTextColor(color: NSColor); message 'setTextColor:';
function textColor: NSColor; message 'textColor';
function isBordered: Boolean; message 'isBordered';
procedure setBordered(flag: Boolean); message 'setBordered:';
function isBezeled: Boolean; message 'isBezeled';
procedure setBezeled(flag: Boolean); message 'setBezeled:';
function isEditable: Boolean; message 'isEditable';
procedure setEditable(flag: Boolean); message 'setEditable:';
function isSelectable: Boolean; message 'isSelectable';
procedure setSelectable(flag: Boolean); message 'setSelectable:';
procedure selectText(sender: id); message 'selectText:';
function delegate: NSTextFieldDelegateProtocol; message 'delegate';
procedure setDelegate(anObject: NSTextFieldDelegateProtocol); message 'setDelegate:';
function textShouldBeginEditing(textObject: NSText): Boolean; message 'textShouldBeginEditing:';
function textShouldEndEditing(textObject: NSText): Boolean; message 'textShouldEndEditing:';
procedure textDidBeginEditing(notification: NSNotification); message 'textDidBeginEditing:';
procedure textDidEndEditing(notification: NSNotification); message 'textDidEndEditing:';
procedure textDidChange(notification: NSNotification); message 'textDidChange:';
function acceptsFirstResponder: Boolean; message 'acceptsFirstResponder';
procedure setBezelStyle(style: NSTextFieldBezelStyle); message 'setBezelStyle:';
function bezelStyle: NSTextFieldBezelStyle; message 'bezelStyle';
{ Adopted Protocols }
function validateUserInterfaceItem(anItem: NSValidatedUserInterfaceItemProtocol): Boolean;
end;
{ NSKeyboardUI_NSTextFieldCategory }
NSKeyboardUI_NSTextFieldCategory = objccategory external name 'NSKeyboardUI' (NSTextField)
procedure setTitleWithMnemonic(stringWithAmpersand: NSString); message 'setTitleWithMnemonic:';
end;
{ NSTextFieldAttributedStringMethodsCategory }
NSTextFieldAttributedStringMethodsCategory = objccategory external (NSTextField)
function allowsEditingTextAttributes: Boolean; message 'allowsEditingTextAttributes';
procedure setAllowsEditingTextAttributes(flag: Boolean); message 'setAllowsEditingTextAttributes:';
function importsGraphics: Boolean; message 'importsGraphics';
procedure setImportsGraphics(flag: Boolean); message 'setImportsGraphics:';
end;
{$endif}
{$endif}
{$ifdef PROTOCOLS}
{$ifndef NSTEXTFIELD_PAS_P}
{$define NSTEXTFIELD_PAS_P}
{ NSTextFieldDelegate Protocol }
NSTextFieldDelegateProtocol = objcprotocol external name 'NSTextFieldDelegate'
end;
{$endif}
{$endif}
|
