paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-21 17:19:59 +02:00
Code Issues Packages Projects Releases Wiki Activity

carbon: clean up

Browse Source 
git-svn-id: trunk@37011 -
This commit is contained in:
mattias 2012-04-24 12:52:49 +00:00
parent e458b3a891
commit 13eb57d802
32 changed files with 225 additions and 230 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
lcl/interfaces/carbon/carboncanvas.pp
View File

@ -1,5 +1,4 @@
{ $Id$ { -----------------------------------------
-----------------------------------------
carboncanvas.pp - Carbon device context carboncanvas.pp - Carbon device context
----------------------------------------- -----------------------------------------
@ -127,7 +126,7 @@ type
procedure Frame3D(var ARect: TRect; const FrameWidth: integer; const Style: TBevelCut); procedure Frame3D(var ARect: TRect; const FrameWidth: integer; const Style: TBevelCut);
function GetClipRect: TRect; function GetClipRect: TRect;
function GetLineLastPixelPos(PrevPos, NewPos: TPoint): TPoint; function GetLineLastPixelPos(PrevPos, NewPos: TPoint): TPoint;
function GetPixel(X, Y: Integer): TGraphicsColor; virtual; function GetPixel({%H-}X, {%H-}Y: Integer): TGraphicsColor; virtual;
function GetTextExtentPoint(Str: PChar; Count: Integer; var Size: TSize): Boolean; function GetTextExtentPoint(Str: PChar; Count: Integer; var Size: TSize): Boolean;
function GetTextMetrics(var TM: TTextMetric): Boolean; function GetTextMetrics(var TM: TTextMetric): Boolean;
procedure InvertRectangle(X1, Y1, X2, Y2: Integer); procedure InvertRectangle(X1, Y1, X2, Y2: Integer);
@ -139,7 +138,7 @@ type
procedure SetPixel(X, Y: Integer; AColor: TGraphicsColor); procedure SetPixel(X, Y: Integer; AColor: TGraphicsColor);
function StretchDraw(X, Y, Width, Height: Integer; SrcDC: TCarbonBitmapContext; function StretchDraw(X, Y, Width, Height: Integer; SrcDC: TCarbonBitmapContext;
XSrc, YSrc, SrcWidth, SrcHeight: Integer; Msk: TCarbonBitmap; XMsk, XSrc, YSrc, SrcWidth, SrcHeight: Integer; Msk: TCarbonBitmap; XMsk,
YMsk: Integer; Rop: DWORD): Boolean; YMsk: Integer; {%H-}Rop: DWORD): Boolean;
function SetClipRegion(AClipRegion: TCarbonRegion; Mode: Integer): Integer; function SetClipRegion(AClipRegion: TCarbonRegion; Mode: Integer): Integer;
function CopyClipRegion(ADstRegion: TCarbonRegion): Integer; function CopyClipRegion(ADstRegion: TCarbonRegion): Integer;
@ -790,7 +789,7 @@ var
begin begin
// LCL thinks that focus cannot be drawn outside focus rects, but carbon do that // LCL thinks that focus cannot be drawn outside focus rects, but carbon do that
// => correct rect // => correct rect
OSError(GetThemeMetric(kThemeMetricFocusRectOutset, AOutSet), OSError(GetThemeMetric(kThemeMetricFocusRectOutset, AOutSet{%H-}),
Self, 'DrawFocusRect', 'GetThemeMetric'); Self, 'DrawFocusRect', 'GetThemeMetric');
InflateRect(ARect, -AOutSet, -AOutSet); InflateRect(ARect, -AOutSet, -AOutSet);
OSError( OSError(
@ -1495,8 +1494,8 @@ begin
UseLayer:=Assigned(MskImage) UseLayer:=Assigned(MskImage)
or (CGImageGetWidth(Image)<>SrcWidth) or (CGImageGetWidth(Image){%H-}<>SrcWidth)
or (CGImageGetHeight(Image)<>SrcHeight); or (CGImageGetHeight(Image){%H-}<>SrcHeight);
try try
if not UseLayer then if not UseLayer then
@ -1512,7 +1511,7 @@ begin
Layer := CGLayerCreateWithContext(SrcDC.CGContext, LayRect.size, nil); Layer := CGLayerCreateWithContext(SrcDC.CGContext, LayRect.size, nil);
// the sub-image is out of edges // the sub-image is out of edges
if (CGImageGetWidth(Image)<>SrcWidth) or (CGImageGetHeight(Image)<>SrcHeight) then if (CGImageGetWidth(Image){%H-}<>SrcWidth) or (CGImageGetHeight(Image){%H-}<>SrcHeight) then
begin begin
with ImgRect do with ImgRect do
if XSrc<0 then origin.x:=SrcWidth-CGImageGetWidth(Image) else origin.x:=0; if XSrc<0 then origin.x:=SrcWidth-CGImageGetWidth(Image) else origin.x:=0;
@ -1599,7 +1598,7 @@ var
dx, dy: Integer; dx, dy: Integer;
begin begin
if isSamePoint(AWindowOfs, fWindowOfs) and isSamePoint(AViewOfs, fViewPortOfs) then Exit; if isSamePoint(AWindowOfs, fWindowOfs) and isSamePoint(AViewOfs, fViewPortOfs) then Exit;
GetWindowViewTranslate(fWindowOfs, fViewPortOfs, dx, dy); GetWindowViewTranslate(fWindowOfs, fViewPortOfs, dx{%H-}, dy{%H-});
CGContextTranslateCTM(CGContext, -dx, -dy); CGContextTranslateCTM(CGContext, -dx, -dy);
fWindowOfs:=AWindowOfs; fWindowOfs:=AWindowOfs;
@ -1651,7 +1650,7 @@ function TCarbonControlContext.GetSize: TPoint;
var var
R: TRect; R: TRect;
begin begin
FOwner.GetClientRect(R); FOwner.GetClientRect(R{%H-});
Result.X := (R.Right - R.Left); Result.X := (R.Right - R.Left);
Result.Y := (R.Bottom - R.Top); Result.Y := (R.Bottom - R.Top);
end; end;

8
lcl/interfaces/carbon/carboncaret.pas
View File

@ -32,12 +32,10 @@ interface
{$I carbondefines.inc} {$I carbondefines.inc}
uses uses
// Bindings
MacOSAll,
// Free Pascal // Free Pascal
Classes, SysUtils, Types, Classes, SysUtils, Types,
// Widgetset // Widgetset
CarbonDef, CarbonGDIObjects, CarbonInt, CarbonDef, CarbonGDIObjects,
// LCL // LCL
LCLType, LCLIntf, LCLProc, Graphics, ExtCtrls, Forms; LCLType, LCLIntf, LCLProc, Graphics, ExtCtrls, Forms;
@ -59,7 +57,7 @@ type
FCaretCS: System.PRTLCriticalSection; FCaretCS: System.PRTLCriticalSection;
FWidgetSetReleased: Boolean; FWidgetSetReleased: Boolean;
procedure SetPos(const Value: TPoint); procedure SetPos(const Value: TPoint);
procedure UpdateCall(Data: PtrInt); procedure UpdateCall({%H-}Data: PtrInt);
protected protected
procedure DoTimer(Sender: TObject); procedure DoTimer(Sender: TObject);
procedure DrawCaret; virtual; procedure DrawCaret; virtual;
@ -86,7 +84,7 @@ type
end; end;
function CreateCaret(Widget: TCarbonWidget; Bitmap: PtrUInt; Width, Height: Integer): Boolean; overload; function CreateCaret(Widget: TCarbonWidget; Bitmap: PtrUInt; Width, Height: Integer): Boolean; overload;
function HideCaret(Widget: TCarbonWidget): Boolean; function HideCaret({%H-}Widget: TCarbonWidget): Boolean;
function ShowCaret(Widget: TCarbonWidget): Boolean; function ShowCaret(Widget: TCarbonWidget): Boolean;
function SetCaretPos(X, Y: Integer): Boolean; function SetCaretPos(X, Y: Integer): Boolean;
function GetCaretPos(var P: TPoint): Boolean; function GetCaretPos(var P: TPoint): Boolean;

17
lcl/interfaces/carbon/carbonmenus.pp
View File

@ -1,5 +1,4 @@
{ $Id: $ { ----------------------------------------
----------------------------------------
carbonmenus.pp - Carbon internal menus carbonmenus.pp - Carbon internal menus
---------------------------------------- ----------------------------------------
@ -27,15 +26,15 @@ interface
uses uses
// rtl+ftl // rtl+ftl
Types, Classes, SysUtils, Math, Contnrs, Classes, SysUtils, Contnrs,
// carbon bindings // carbon bindings
MacOSAll, MacOSAll,
CarbonUtils, CarbonUtils,
// widgetset // widgetset
WSControls, WSLCLClasses, WSProc, WSLCLClasses,
// LCL // LCL
LMessages, LCLMessageGlue, LCLProc, LCLType, Graphics, Controls, Forms, LMessages, LCLProc, LCLType, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls, Menus, Dialogs, Menus,
// LCL Carbon // LCL Carbon
CarbonDef, CarbonGDIObjects, CarbonProc, CarbonDbgConsts; CarbonDef, CarbonGDIObjects, CarbonProc, CarbonDbgConsts;
@ -67,7 +66,7 @@ type
procedure Attach(AParentMenu: TCarbonMenu); procedure Attach(AParentMenu: TCarbonMenu);
procedure AttachToMenuBar; procedure AttachToMenuBar;
procedure SetCaption(const ACaption: String); procedure SetCaption(const {%H-}ACaption: String);
procedure SetVisible(AVisible: Boolean); procedure SetVisible(AVisible: Boolean);
procedure SetEnable(AEnabled: Boolean); procedure SetEnable(AEnabled: Boolean);
procedure SetBitmap(const ABitmap: TBitmap); procedure SetBitmap(const ABitmap: TBitmap);
@ -283,7 +282,7 @@ begin
// menu item has sub menu - call click when opening // menu item has sub menu - call click when opening
if LCLMenuItem.IsInMenuBar or (LCLMenuItem.Count > 0) then if LCLMenuItem.IsInMenuBar or (LCLMenuItem.Count > 0) then
begin begin
FillChar(Msg, SizeOf(Msg), 0); FillChar(Msg{%H-}, SizeOf(Msg), 0);
Msg.msg := LM_ACTIVATE; Msg.msg := LM_ACTIVATE;
LCLMenuItem.Dispatch(Msg); LCLMenuItem.Dispatch(Msg);
end; end;
@ -762,7 +761,7 @@ function TCarbonMenu.GetShortCutKey: AnsiChar;
var var
KeyValue: UInt16; KeyValue: UInt16;
begin begin
if GetMenuItemCommandKey(FParentMenu.Menu, GetIndex + 1, False, KeyValue)<>noErr then if GetMenuItemCommandKey(FParentMenu.Menu, GetIndex + 1, False, KeyValue{%H-})<>noErr then
Result:=#0 Result:=#0
else else
Result:=AnsiChar(KeyValue); Result:=AnsiChar(KeyValue);

14
lcl/interfaces/carbon/carbonproc.pp
View File

@ -35,7 +35,7 @@ interface
uses uses
MacOSAll, MacOSAll,
Classes, SysUtils, Types, LCLType, LCLProc, LCLClasses, LMessages, Classes, SysUtils, Types, LCLType, LCLProc,
Controls, Forms, Graphics, Math, GraphType; Controls, Forms, Graphics, Math, GraphType;
function OSError(AResult: OSStatus; const AMethodName, ACallName: String; function OSError(AResult: OSStatus; const AMethodName, ACallName: String;
@ -648,7 +648,7 @@ end;
------------------------------------------------------------------------------} ------------------------------------------------------------------------------}
function GetCarbonThemeMetric(Metric: ThemeMetric; DefaultValue: Integer): Integer; function GetCarbonThemeMetric(Metric: ThemeMetric; DefaultValue: Integer): Integer;
begin begin
if OSError(GetThemeMetric(Metric, Result), if OSError(GetThemeMetric(Metric, Result{%H-}),
'GetCarbonThemeMetric', 'GetThemeMetric') then Result := DefaultValue; 'GetCarbonThemeMetric', 'GetThemeMetric') then Result := DefaultValue;
end; end;
@ -701,7 +701,7 @@ var
Data: Word; Data: Word;
ControlSize: Integer; ControlSize: Integer;
begin begin
FillChar(R, SizeOf(R), 0); FillChar(R{%H-}, SizeOf(R), 0);
GetControlBounds(Control, R); GetControlBounds(Control, R);
if ControlHeight then ControlSize := R.Bottom - R.Top if ControlHeight then ControlSize := R.Bottom - R.Top
else ControlSize := R.Right - R.Left; else ControlSize := R.Right - R.Left;
@ -731,7 +731,7 @@ var
mp : MacOSAll.point; mp : MacOSAll.point;
begin begin
Result := false; Result := false;
if CreateEvent(kCFAllocatorDefault, kEventClassControl, kEventControlHitTest, 0, 0, event) <> noErr then if CreateEvent(kCFAllocatorDefault, kEventClassControl, kEventControlHitTest, 0, 0, event{%H-}) <> noErr then
Exit; Exit;
mp.h := X; mp.h := X;
mp.v := Y; mp.v := Y;
@ -814,7 +814,7 @@ begin
StrRange.length := CFStringGetLength(AString); StrRange.length := CFStringGetLength(AString);
CFStringGetBytes(AString, StrRange, Encoding, CFStringGetBytes(AString, StrRange, Encoding,
Ord('?'), False, nil, 0, StrSize); Ord('?'), False, nil, 0, StrSize{%H-});
SetLength(Result, StrSize); SetLength(Result, StrSize);
if StrSize > 0 then if StrSize > 0 then
@ -1294,7 +1294,7 @@ end;
------------------------------------------------------------------------------} ------------------------------------------------------------------------------}
function CustomControlHandler(ANextHandler: EventHandlerCallRef; function CustomControlHandler(ANextHandler: EventHandlerCallRef;
AEvent: EventRef; AEvent: EventRef;
AData: Pointer): OSStatus; {$IFDEF darwin}mwpascal;{$ENDIF} {%H-}AData: Pointer): OSStatus; {$IFDEF darwin}mwpascal;{$ENDIF}
var var
EventClass, EventKind: LongWord; EventClass, EventKind: LongWord;
Part: ControlPartCode; Part: ControlPartCode;
@ -1340,7 +1340,7 @@ var
sz : SInt16; sz : SInt16;
begin begin
//Note: the GetThemeFont is deprecated in 10.5. CoreText functions should be used! //Note: the GetThemeFont is deprecated in 10.5. CoreText functions should be used!
MacOSAll.GetThemeFont(kThemeSystemFont, GetApplicationScript, @s, sz, st); MacOSAll.GetThemeFont(kThemeSystemFont, GetApplicationScript, @s, sz{%H-{%H-}}, st);
CarbonDefaultFont := s; CarbonDefaultFont := s;
CarbonDefaultFontSize := sz; CarbonDefaultFontSize := sz;
end; end;

4
lcl/interfaces/carbon/carbonwsarrow.pp
View File

@ -43,8 +43,8 @@ type
TCarbonWSArrow = class(TWSArrow) TCarbonWSArrow = class(TWSArrow)
published published
class procedure SetType(const AArrow: TArrow; const AArrowType: TArrowType; class procedure SetType(const {%H-}AArrow: TArrow; const {%H-}AArrowType: TArrowType;
const AShadowType: TShadowType); override; const {%H-}AShadowType: TShadowType); override;
end; end;

7
lcl/interfaces/carbon/glgrab.pas
View File

@ -60,8 +60,8 @@ begin
while ( top < bottom ) do while ( top < bottom ) do
begin begin
topP := Pointer((top * rowBytes) + PtrInt(base)); topP := {%H-}Pointer((top * rowBytes) + {%H-}PtrInt(base));
bottomP := Pointer((bottom * rowBytes) + PtrInt(base)); bottomP := {%H-}Pointer((bottom * rowBytes) + {%H-}PtrInt(base));
{ {
* Save and swap scanlines. * Save and swap scanlines.
@ -103,7 +103,6 @@ var
data: Pointer; data: Pointer;
bytewidth: Longint; bytewidth: Longint;
width, height: GLint; width, height: GLint;
bytes: Longint;
cSpace: CGColorSpaceRef; cSpace: CGColorSpaceRef;
glContextObj: CGLContextObj; glContextObj: CGLContextObj;
@ -147,7 +146,7 @@ begin
bytewidth := width * 4; // Assume 4 bytes/pixel for now bytewidth := width * 4; // Assume 4 bytes/pixel for now
bytewidth := (bytewidth + 3) and (not 3); // Align to 4 bytes bytewidth := (bytewidth + 3) and (not 3); // Align to 4 bytes
bytes := bytewidth * height; // width * height //bytes := bytewidth * height; // width * height
{ Build bitmap context } { Build bitmap context }
data := System.GetMem(height * bytewidth); data := System.GetMem(height * bytewidth);

2
lcl/interfaces/carbon/objc/error.inc
View File

@ -112,7 +112,7 @@ procedure _NXRaiseError(code: cint; const data1, data2: Pointer); cdecl; externa
#endif} #endif}
procedure NX_RAISE(code: cint; const data1, data2: Pointer); procedure NX_RAISE({%H-}code: cint; const {%H-}data1, {%H-}data2: Pointer);
procedure NX_RERAISE(); procedure NX_RERAISE();

2
lcl/interfaces/carbon/objc/lobjc.pas
View File

@ -19,7 +19,7 @@ unit lobjc;
interface interface
uses ctypes, unix; uses unix;
{$include lobjc-api.inc} {$include lobjc-api.inc}
{$include lobjc.inc} {$include lobjc.inc}

12
lcl/interfaces/carbon/pascocoa/appkit/NSBitmapImageRep.inc
View File

@ -298,32 +298,32 @@ end;
function NSBitmapImageRep.isPlanar: LongBool; function NSBitmapImageRep.isPlanar: LongBool;
begin begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSBitmapImageRep_isPlanar)), [])); Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSBitmapImageRep_isPlanar)), []));
end; end;
function NSBitmapImageRep.samplesPerPixel: Integer; function NSBitmapImageRep.samplesPerPixel: Integer;
begin begin
Result := Integer(objc_msgSend(Handle, sel_registerName(PChar(StrNSBitmapImageRep_samplesPerPixel)), [])); Result := {%H-}Integer(objc_msgSend(Handle, sel_registerName(PChar(StrNSBitmapImageRep_samplesPerPixel)), []));
end; end;
function NSBitmapImageRep.bitsPerPixel: Integer; function NSBitmapImageRep.bitsPerPixel: Integer;
begin begin
Result := Integer(objc_msgSend(Handle, sel_registerName(PChar(StrNSBitmapImageRep_bitsPerPixel)), [])); Result := {%H-}Integer(objc_msgSend(Handle, sel_registerName(PChar(StrNSBitmapImageRep_bitsPerPixel)), []));
end; end;
function NSBitmapImageRep.bytesPerRow: Integer; function NSBitmapImageRep.bytesPerRow: Integer;
begin begin
Result := Integer(objc_msgSend(Handle, sel_registerName(PChar(StrNSBitmapImageRep_bytesPerRow)), [])); Result := {%H-}Integer(objc_msgSend(Handle, sel_registerName(PChar(StrNSBitmapImageRep_bytesPerRow)), []));
end; end;
function NSBitmapImageRep.bytesPerPlane: Integer; function NSBitmapImageRep.bytesPerPlane: Integer;
begin begin
Result := Integer(objc_msgSend(Handle, sel_registerName(PChar(StrNSBitmapImageRep_bytesPerPlane)), [])); Result := {%H-}Integer(objc_msgSend(Handle, sel_registerName(PChar(StrNSBitmapImageRep_bytesPerPlane)), []));
end; end;
function NSBitmapImageRep.numberOfPlanes: Integer; function NSBitmapImageRep.numberOfPlanes: Integer;
begin begin
Result := Integer(objc_msgSend(Handle, sel_registerName(PChar(StrNSBitmapImageRep_numberOfPlanes)), [])); Result := {%H-}Integer(objc_msgSend(Handle, sel_registerName(PChar(StrNSBitmapImageRep_numberOfPlanes)), []));
end; end;
{.$ifdef MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_4} {.$ifdef MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_4}

12
lcl/interfaces/carbon/pascocoa/appkit/NSButton.inc
View File

@ -220,7 +220,7 @@ end;
function NSButton.state: Integer; function NSButton.state: Integer;
begin begin
Result := Integer(objc_msgSend(Handle, sel_registerName(PChar(StrNSButton_state)), [])); Result := {%H-}Integer(objc_msgSend(Handle, sel_registerName(PChar(StrNSButton_state)), []));
end; end;
procedure NSButton.setState(_value: Integer); procedure NSButton.setState(_value: Integer);
@ -235,7 +235,7 @@ end;
function NSButton.isBordered: LongBool; function NSButton.isBordered: LongBool;
begin begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSButton_isBordered)), [])); Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSButton_isBordered)), []));
end; end;
procedure NSButton.setBordered(_flag: LongBool); procedure NSButton.setBordered(_flag: LongBool);
@ -250,7 +250,7 @@ end;
function NSButton.isTransparent: LongBool; function NSButton.isTransparent: LongBool;
begin begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSButton_isTransparent)), [])); Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSButton_isTransparent)), []));
end; end;
procedure NSButton.setTransparent(_flag: LongBool); procedure NSButton.setTransparent(_flag: LongBool);
@ -300,7 +300,7 @@ end;
function NSButton.keyEquivalentModifierMask: LongWord; function NSButton.keyEquivalentModifierMask: LongWord;
begin begin
Result := LongWord(objc_msgSend(Handle, sel_registerName(PChar(StrNSButton_keyEquivalentModifierMask)), [])); Result := {%H-}LongWord(objc_msgSend(Handle, sel_registerName(PChar(StrNSButton_keyEquivalentModifierMask)), []));
end; end;
procedure NSButton.setKeyEquivalentModifierMask(_mask: LongWord); procedure NSButton.setKeyEquivalentModifierMask(_mask: LongWord);
@ -400,7 +400,7 @@ end;
function NSButton.allowsMixedState: LongBool; function NSButton.allowsMixedState: LongBool;
begin begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSButton_allowsMixedState)), [])); Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSButton_allowsMixedState)), []));
end; end;
procedure NSButton.setNextState; procedure NSButton.setNextState;
@ -420,7 +420,7 @@ end;
function NSButton.showsBorderOnlyWhileMouseInside: LongBool; function NSButton.showsBorderOnlyWhileMouseInside: LongBool;
begin begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSButton_showsBorderOnlyWhileMouseInside)), [])); Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSButton_showsBorderOnlyWhileMouseInside)), []));
end; end;
procedure NSButton.setSound(_aSound: lobjc.id {NSSound}); procedure NSButton.setSound(_aSound: lobjc.id {NSSound});

4
lcl/interfaces/carbon/pascocoa/appkit/NSColor.inc
View File

@ -1188,7 +1188,7 @@ end;
function NSColor.numberOfComponents: Integer; function NSColor.numberOfComponents: Integer;
begin begin
Result := Integer(objc_msgSend(Handle, sel_registerName(PChar(StrNSColor_numberOfComponents)), [])); Result := {%H-}Integer(objc_msgSend(Handle, sel_registerName(PChar(StrNSColor_numberOfComponents)), []));
end; end;
procedure NSColor.getComponents(_components: Single); procedure NSColor.getComponents(_components: Single);
@ -1265,7 +1265,7 @@ end;
class function NSColor.ignoresAlpha: LongBool; class function NSColor.ignoresAlpha: LongBool;
begin begin
Result := LongBool(objc_msgSend(getClass, sel_registerName(PChar(StrNSColor_ignoresAlpha)), [])); Result := {%H-}LongBool(objc_msgSend(getClass, sel_registerName(PChar(StrNSColor_ignoresAlpha)), []));
end; end;
constructor NSColor.colorWithCIColor(_color: lobjc.id {CIColor}); constructor NSColor.colorWithCIColor(_color: lobjc.id {CIColor});

16
lcl/interfaces/carbon/pascocoa/appkit/NSControl.inc
View File

@ -270,7 +270,7 @@ end;
function NSControl.tag: Integer; function NSControl.tag: Integer;
begin begin
Result := Integer(objc_msgSend(Handle, sel_registerName(PChar(StrNSControl_tag)), [])); Result := {%H-}Integer(objc_msgSend(Handle, sel_registerName(PChar(StrNSControl_tag)), []));
end; end;
procedure NSControl.setTag(_anInt: Integer); procedure NSControl.setTag(_anInt: Integer);
@ -285,7 +285,7 @@ end;
function NSControl.selectedTag: Integer; function NSControl.selectedTag: Integer;
begin begin
Result := Integer(objc_msgSend(Handle, sel_registerName(PChar(StrNSControl_selectedTag)), [])); Result := {%H-}Integer(objc_msgSend(Handle, sel_registerName(PChar(StrNSControl_selectedTag)), []));
end; end;
procedure NSControl.setIgnoresMultiClick(_flag: LongBool); procedure NSControl.setIgnoresMultiClick(_flag: LongBool);
@ -300,7 +300,7 @@ end;
function NSControl.ignoresMultiClick: LongBool; function NSControl.ignoresMultiClick: LongBool;
begin begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSControl_ignoresMultiClick)), [])); Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSControl_ignoresMultiClick)), []));
end; end;
function NSControl.sendActionOn(_mask: Integer): Integer; function NSControl.sendActionOn(_mask: Integer): Integer;
@ -315,7 +315,7 @@ end;
function NSControl.isContinuous: LongBool; function NSControl.isContinuous: LongBool;
begin begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSControl_isContinuous)), [])); Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSControl_isContinuous)), []));
end; end;
procedure NSControl.setContinuous(_flag: LongBool); procedure NSControl.setContinuous(_flag: LongBool);
@ -330,7 +330,7 @@ end;
function NSControl.isEnabled: LongBool; function NSControl.isEnabled: LongBool;
begin begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSControl_isEnabled)), [])); Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSControl_isEnabled)), []));
end; end;
procedure NSControl.setEnabled(_flag: LongBool); procedure NSControl.setEnabled(_flag: LongBool);
@ -460,7 +460,7 @@ end;
function NSControl.intValue: Integer; function NSControl.intValue: Integer;
begin begin
Result := Integer(objc_msgSend(Handle, sel_registerName(PChar(StrNSControl_intValue)), [])); Result := {%H-}Integer(objc_msgSend(Handle, sel_registerName(PChar(StrNSControl_intValue)), []));
end; end;
function NSControl.floatValue: Single; function NSControl.floatValue: Single;
@ -595,7 +595,7 @@ end;
function NSControl.abortEditing: LongBool; function NSControl.abortEditing: LongBool;
begin begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSControl_abortEditing)), [])); Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSControl_abortEditing)), []));
end; end;
procedure NSControl.validateEditing; procedure NSControl.validateEditing;
@ -647,7 +647,7 @@ end;
function NSControl.refusesFirstResponder: LongBool; function NSControl.refusesFirstResponder: LongBool;
begin begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSControl_refusesFirstResponder)), [])); Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSControl_refusesFirstResponder)), []));
end; end;
function NSControl.attributedStringValue: lobjc.id; function NSControl.attributedStringValue: lobjc.id;

16
lcl/interfaces/carbon/pascocoa/appkit/NSFont.inc
View File

@ -239,9 +239,9 @@ const
StrNSFont_isFixedPitch = 'isFixedPitch'; StrNSFont_isFixedPitch = 'isFixedPitch';
StrNSFont_boundingRectForGlyph = 'boundingRectForGlyph:'; StrNSFont_boundingRectForGlyph = 'boundingRectForGlyph:';
StrNSFont_advancementForGlyph = 'advancementForGlyph:'; StrNSFont_advancementForGlyph = 'advancementForGlyph:';
StrNSFont_getBoundingRects_forGlyphs_count = 'getBoundingRects:forGlyphs:count:'; {%H-}StrNSFont_getBoundingRects_forGlyphs_count = 'getBoundingRects:forGlyphs:count:';
StrNSFont_getAdvancements_forGlyphs_count = 'getAdvancements:forGlyphs:count:'; {%H-}StrNSFont_getAdvancements_forGlyphs_count = 'getAdvancements:forGlyphs:count:';
StrNSFont_getAdvancements_forPackedGlyphs_length = 'getAdvancements:forPackedGlyphs:length:'; {%H-}StrNSFont_getAdvancements_forPackedGlyphs_length = 'getAdvancements:forPackedGlyphs:length:';
StrNSFont_set = 'set'; StrNSFont_set = 'set';
StrNSFont_setInContext = 'setInContext:'; StrNSFont_setInContext = 'setInContext:';
StrNSFont_printerFont = 'printerFont'; StrNSFont_printerFont = 'printerFont';
@ -264,7 +264,7 @@ const
StrNSFont_positionOfGlyph_struckOverGlyph_metricsExist = 'positionOfGlyph:struckOverGlyph:metricsExist:'; StrNSFont_positionOfGlyph_struckOverGlyph_metricsExist = 'positionOfGlyph:struckOverGlyph:metricsExist:';
StrNSFont_positionOfGlyph_struckOverRect_metricsExist = 'positionOfGlyph:struckOverRect:metricsExist:'; StrNSFont_positionOfGlyph_struckOverRect_metricsExist = 'positionOfGlyph:struckOverRect:metricsExist:';
StrNSFont_positionOfGlyph_forCharacter_struckOverRect = 'positionOfGlyph:forCharacter:struckOverRect:'; StrNSFont_positionOfGlyph_forCharacter_struckOverRect = 'positionOfGlyph:forCharacter:struckOverRect:';
StrNSFont_positionOfGlyph_withRelation_toBaseGlyph_totalAdvancement_metricsExist = 'positionOfGlyph:withRelation:toBaseGlyph:totalAdvancement:metricsExist:'; {%H-}StrNSFont_positionOfGlyph_withRelation_toBaseGlyph_totalAdvancement_metricsExist = 'positionOfGlyph:withRelation:toBaseGlyph:totalAdvancement:metricsExist:';
{ NSFont } { NSFont }
@ -532,12 +532,12 @@ end;
function NSFont.numberOfGlyphs: LongWord; function NSFont.numberOfGlyphs: LongWord;
begin begin
Result := LongWord(objc_msgSend(Handle, sel_registerName(PChar(StrNSFont_numberOfGlyphs)), [])); Result := {%H-}LongWord(objc_msgSend(Handle, sel_registerName(PChar(StrNSFont_numberOfGlyphs)), []));
end; end;
function NSFont.mostCompatibleStringEncoding: NSStringEncoding; function NSFont.mostCompatibleStringEncoding: NSStringEncoding;
begin begin
Result := NSStringEncoding(objc_msgSend(Handle, sel_registerName(PChar(StrNSFont_mostCompatibleStringEncoding)), [])); Result := {%H-}NSStringEncoding(objc_msgSend(Handle, sel_registerName(PChar(StrNSFont_mostCompatibleStringEncoding)), []));
end; end;
function NSFont.glyphWithName(_aName: CFStringRef): NSGlyph; function NSFont.glyphWithName(_aName: CFStringRef): NSGlyph;
@ -607,7 +607,7 @@ end;
function NSFont.isFixedPitch: LongBool; function NSFont.isFixedPitch: LongBool;
begin begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSFont_isFixedPitch)), [])); Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSFont_isFixedPitch)), []));
end; end;
function NSFont.boundingRectForGlyph(_aGlyph: NSGlyph): NSRect; function NSFont.boundingRectForGlyph(_aGlyph: NSGlyph): NSRect;
@ -722,7 +722,7 @@ end;
function NSFont.isBaseFont: LongBool; function NSFont.isBaseFont: LongBool;
begin begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSFont_isBaseFont)), [])); Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSFont_isBaseFont)), []));
end; end;
function NSFont.afmDictionary: CFDictionaryRef; function NSFont.afmDictionary: CFDictionaryRef;

6
lcl/interfaces/carbon/pascocoa/appkit/NSFontManager.inc
View File

@ -229,7 +229,7 @@ end;
function NSFontManager.isMultiple: LongBool; function NSFontManager.isMultiple: LongBool;
begin begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSFontManager_isMultiple)), [])); Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSFontManager_isMultiple)), []));
end; end;
function NSFontManager.selectedFont: lobjc.id; function NSFontManager.selectedFont: lobjc.id;
@ -399,7 +399,7 @@ end;
function NSFontManager.isEnabled: LongBool; function NSFontManager.isEnabled: LongBool;
begin begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSFontManager_isEnabled)), [])); Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSFontManager_isEnabled)), []));
end; end;
procedure NSFontManager.setEnabled_(_flag: LongBool); procedure NSFontManager.setEnabled_(_flag: LongBool);
@ -429,7 +429,7 @@ end;
function NSFontManager.sendAction: LongBool; function NSFontManager.sendAction: LongBool;
begin begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSFontManager_sendAction)), [])); Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSFontManager_sendAction)), []));
end; end;
procedure NSFontManager.setDelegate_(_anObject: lobjc.id); procedure NSFontManager.setDelegate_(_anObject: lobjc.id);

18
lcl/interfaces/carbon/pascocoa/appkit/NSImage.inc
View File

@ -353,7 +353,7 @@ end;
function NSImage.scalesWhenResized: LongBool; function NSImage.scalesWhenResized: LongBool;
begin begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSImage_scalesWhenResized)), [])); Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSImage_scalesWhenResized)), []));
end; end;
procedure NSImage.setDataRetained(_flag: LongBool); procedure NSImage.setDataRetained(_flag: LongBool);
@ -368,7 +368,7 @@ end;
function NSImage.isDataRetained: LongBool; function NSImage.isDataRetained: LongBool;
begin begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSImage_isDataRetained)), [])); Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSImage_isDataRetained)), []));
end; end;
procedure NSImage.setCachedSeparately(_flag: LongBool); procedure NSImage.setCachedSeparately(_flag: LongBool);
@ -383,7 +383,7 @@ end;
function NSImage.isCachedSeparately: LongBool; function NSImage.isCachedSeparately: LongBool;
begin begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSImage_isCachedSeparately)), [])); Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSImage_isCachedSeparately)), []));
end; end;
procedure NSImage.setCacheDepthMatchesImageDepth(_flag: LongBool); procedure NSImage.setCacheDepthMatchesImageDepth(_flag: LongBool);
@ -398,7 +398,7 @@ end;
function NSImage.cacheDepthMatchesImageDepth: LongBool; function NSImage.cacheDepthMatchesImageDepth: LongBool;
begin begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSImage_cacheDepthMatchesImageDepth)), [])); Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSImage_cacheDepthMatchesImageDepth)), []));
end; end;
procedure NSImage.setBackgroundColor(_aColor: lobjc.id {NSColor}); procedure NSImage.setBackgroundColor(_aColor: lobjc.id {NSColor});
@ -428,7 +428,7 @@ end;
function NSImage.usesEPSOnResolutionMismatch: LongBool; function NSImage.usesEPSOnResolutionMismatch: LongBool;
begin begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSImage_usesEPSOnResolutionMismatch)), [])); Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSImage_usesEPSOnResolutionMismatch)), []));
end; end;
procedure NSImage.setPrefersColorMatch(_flag: LongBool); procedure NSImage.setPrefersColorMatch(_flag: LongBool);
@ -443,7 +443,7 @@ end;
function NSImage.prefersColorMatch: LongBool; function NSImage.prefersColorMatch: LongBool;
begin begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSImage_prefersColorMatch)), [])); Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSImage_prefersColorMatch)), []));
end; end;
procedure NSImage.setMatchesOnMultipleResolution(_flag: LongBool); procedure NSImage.setMatchesOnMultipleResolution(_flag: LongBool);
@ -458,7 +458,7 @@ end;
function NSImage.matchesOnMultipleResolution: LongBool; function NSImage.matchesOnMultipleResolution: LongBool;
begin begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSImage_matchesOnMultipleResolution)), [])); Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSImage_matchesOnMultipleResolution)), []));
end; end;
procedure NSImage.dissolveToPoint_fraction(_point: NSPoint; _aFloat: Single); procedure NSImage.dissolveToPoint_fraction(_point: NSPoint; _aFloat: Single);
@ -608,7 +608,7 @@ end;
function NSImage.isValid: LongBool; function NSImage.isValid: LongBool;
begin begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSImage_isValid)), [])); Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSImage_isValid)), []));
end; end;
procedure NSImage.lockFocus; procedure NSImage.lockFocus;
@ -698,7 +698,7 @@ end;
function NSImage.isFlipped: LongBool; function NSImage.isFlipped: LongBool;
begin begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSImage_isFlipped)), [])); Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSImage_isFlipped)), []));
end; end;
{.$ifdef MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_2} {.$ifdef MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_2}

12
lcl/interfaces/carbon/pascocoa/appkit/NSImageRep.inc
View File

@ -151,7 +151,7 @@ end;
function NSImageRep.draw: LongBool; function NSImageRep.draw: LongBool;
begin begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSImageRep_draw)), [])); Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSImageRep_draw)), []));
end; end;
function NSImageRep.drawAtPoint(_point: NSPoint): LongBool; function NSImageRep.drawAtPoint(_point: NSPoint): LongBool;
@ -201,7 +201,7 @@ end;
function NSImageRep.hasAlpha: LongBool; function NSImageRep.hasAlpha: LongBool;
begin begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSImageRep_hasAlpha)), [])); Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSImageRep_hasAlpha)), []));
end; end;
procedure NSImageRep.setOpaque(_flag: LongBool); procedure NSImageRep.setOpaque(_flag: LongBool);
@ -216,7 +216,7 @@ end;
function NSImageRep.isOpaque: LongBool; function NSImageRep.isOpaque: LongBool;
begin begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSImageRep_isOpaque)), [])); Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSImageRep_isOpaque)), []));
end; end;
procedure NSImageRep.setColorSpaceName(__string: CFStringRef); procedure NSImageRep.setColorSpaceName(__string: CFStringRef);
@ -246,7 +246,7 @@ end;
function NSImageRep.bitsPerSample: Integer; function NSImageRep.bitsPerSample: Integer;
begin begin
Result := Integer(objc_msgSend(Handle, sel_registerName(PChar(StrNSImageRep_bitsPerSample)), [])); Result := {%H-}Integer(objc_msgSend(Handle, sel_registerName(PChar(StrNSImageRep_bitsPerSample)), []));
end; end;
procedure NSImageRep.setPixelsWide(_anInt: Integer); procedure NSImageRep.setPixelsWide(_anInt: Integer);
@ -261,7 +261,7 @@ end;
function NSImageRep.pixelsWide: Integer; function NSImageRep.pixelsWide: Integer;
begin begin
Result := Integer(objc_msgSend(Handle, sel_registerName(PChar(StrNSImageRep_pixelsWide)), [])); Result := {%H-}Integer(objc_msgSend(Handle, sel_registerName(PChar(StrNSImageRep_pixelsWide)), []));
end; end;
procedure NSImageRep.setPixelsHigh(_anInt: Integer); procedure NSImageRep.setPixelsHigh(_anInt: Integer);
@ -276,7 +276,7 @@ end;
function NSImageRep.pixelsHigh: Integer; function NSImageRep.pixelsHigh: Integer;
begin begin
Result := Integer(objc_msgSend(Handle, sel_registerName(PChar(StrNSImageRep_pixelsHigh)), [])); Result := {%H-}Integer(objc_msgSend(Handle, sel_registerName(PChar(StrNSImageRep_pixelsHigh)), []));
end; end;
class procedure NSImageRep.registerImageRepClass(_imageRepClass: _Class); class procedure NSImageRep.registerImageRepClass(_imageRepClass: _Class);

12
lcl/interfaces/carbon/pascocoa/appkit/NSMenu.inc
View File

@ -230,7 +230,7 @@ end;
class function NSMenu.menuBarVisible: LongBool; class function NSMenu.menuBarVisible: LongBool;
begin begin
Result := LongBool(objc_msgSend(getClass, sel_registerName(PChar(StrNSMenu_menuBarVisible)), [])); Result := {%H-}LongBool(objc_msgSend(getClass, sel_registerName(PChar(StrNSMenu_menuBarVisible)), []));
end; end;
{.$endif} {.$endif}
@ -353,7 +353,7 @@ end;
function NSMenu.numberOfItems: Integer; function NSMenu.numberOfItems: Integer;
begin begin
Result := Integer(objc_msgSend(Handle, sel_registerName(PChar(StrNSMenu_numberOfItems)), [])); Result := {%H-}Integer(objc_msgSend(Handle, sel_registerName(PChar(StrNSMenu_numberOfItems)), []));
end; end;
function NSMenu.indexOfItem(__index: lobjc.id): Integer; function NSMenu.indexOfItem(__index: lobjc.id): Integer;
@ -458,7 +458,7 @@ end;
function NSMenu.autoenablesItems: LongBool; function NSMenu.autoenablesItems: LongBool;
begin begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSMenu_autoenablesItems)), [])); Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSMenu_autoenablesItems)), []));
end; end;
function NSMenu.performKeyEquivalent(_theEvent: lobjc.id {NSEvent}): LongBool; function NSMenu.performKeyEquivalent(_theEvent: lobjc.id {NSEvent}): LongBool;
@ -488,7 +488,7 @@ end;
function NSMenu.menuChangedMessagesEnabled: LongBool; function NSMenu.menuChangedMessagesEnabled: LongBool;
begin begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSMenu_menuChangedMessagesEnabled)), [])); Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSMenu_menuChangedMessagesEnabled)), []));
end; end;
procedure NSMenu.itemChanged(_item: lobjc.id); procedure NSMenu.itemChanged(_item: lobjc.id);
@ -558,7 +558,7 @@ end;
function NSMenu.isTornOff: LongBool; function NSMenu.isTornOff: LongBool;
begin begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSMenu_isTornOff)), [])); Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSMenu_isTornOff)), []));
end; end;
function NSMenu.attachedMenu: lobjc.id; function NSMenu.attachedMenu: lobjc.id;
@ -568,7 +568,7 @@ end;
function NSMenu.isAttached: LongBool; function NSMenu.isAttached: LongBool;
begin begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSMenu_isAttached)), [])); Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSMenu_isAttached)), []));
end; end;
procedure NSMenu.sizeToFit; procedure NSMenu.sizeToFit;

20
lcl/interfaces/carbon/pascocoa/appkit/NSMenuItem.inc
View File

@ -240,7 +240,7 @@ end;
class function NSMenuItem.usesUserKeyEquivalents: LongBool; class function NSMenuItem.usesUserKeyEquivalents: LongBool;
begin begin
Result := LongBool(objc_msgSend(getClass, sel_registerName(PChar(StrNSMenuItem_usesUserKeyEquivalents)), [])); Result := {%H-}LongBool(objc_msgSend(getClass, sel_registerName(PChar(StrNSMenuItem_usesUserKeyEquivalents)), []));
end; end;
constructor NSMenuItem.separatorItem; constructor NSMenuItem.separatorItem;
@ -283,7 +283,7 @@ end;
function NSMenuItem.hasSubmenu: LongBool; function NSMenuItem.hasSubmenu: LongBool;
begin begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSMenuItem_hasSubmenu)), [])); Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSMenuItem_hasSubmenu)), []));
end; end;
procedure NSMenuItem.setSubmenu(_submenu: lobjc.id {NSMenu}); procedure NSMenuItem.setSubmenu(_submenu: lobjc.id {NSMenu});
@ -335,7 +335,7 @@ end;
{.$endif} {.$endif}
function NSMenuItem.isSeparatorItem: LongBool; function NSMenuItem.isSeparatorItem: LongBool;
begin begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSMenuItem_isSeparatorItem)), [])); Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSMenuItem_isSeparatorItem)), []));
end; end;
procedure NSMenuItem.setKeyEquivalent(_aKeyEquivalent: CFStringRef); procedure NSMenuItem.setKeyEquivalent(_aKeyEquivalent: CFStringRef);
@ -365,7 +365,7 @@ end;
function NSMenuItem.keyEquivalentModifierMask: LongWord; function NSMenuItem.keyEquivalentModifierMask: LongWord;
begin begin
Result := LongWord(objc_msgSend(Handle, sel_registerName(PChar(StrNSMenuItem_keyEquivalentModifierMask)), [])); Result := {%H-}LongWord(objc_msgSend(Handle, sel_registerName(PChar(StrNSMenuItem_keyEquivalentModifierMask)), []));
end; end;
function NSMenuItem.userKeyEquivalent: CFStringRef; function NSMenuItem.userKeyEquivalent: CFStringRef;
@ -385,7 +385,7 @@ end;
function NSMenuItem.mnemonicLocation: LongWord; function NSMenuItem.mnemonicLocation: LongWord;
begin begin
Result := LongWord(objc_msgSend(Handle, sel_registerName(PChar(StrNSMenuItem_mnemonicLocation)), [])); Result := {%H-}LongWord(objc_msgSend(Handle, sel_registerName(PChar(StrNSMenuItem_mnemonicLocation)), []));
end; end;
function NSMenuItem.mnemonic: CFStringRef; function NSMenuItem.mnemonic: CFStringRef;
@ -430,7 +430,7 @@ end;
function NSMenuItem.state: NSCellStateValue; function NSMenuItem.state: NSCellStateValue;
begin begin
Result := NSCellStateValue(Integer(objc_msgSend(Handle, sel_registerName(PChar(StrNSMenuItem_state)), []))); Result := NSCellStateValue({%H-}{%H-}Integer(objc_msgSend(Handle, sel_registerName(PChar(StrNSMenuItem_state)), [])));
end; end;
procedure NSMenuItem.setOnStateImage(_image: lobjc.id {NSImage}); procedure NSMenuItem.setOnStateImage(_image: lobjc.id {NSImage});
@ -490,7 +490,7 @@ end;
function NSMenuItem.isEnabled: LongBool; function NSMenuItem.isEnabled: LongBool;
begin begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSMenuItem_isEnabled)), [])); Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSMenuItem_isEnabled)), []));
end; end;
{.$ifdef MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_3} {.$ifdef MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_3}
@ -506,7 +506,7 @@ end;
function NSMenuItem.isAlternate: LongBool; function NSMenuItem.isAlternate: LongBool;
begin begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSMenuItem_isAlternate)), [])); Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSMenuItem_isAlternate)), []));
end; end;
procedure NSMenuItem.setIndentationLevel(_indentationLevel: Integer); procedure NSMenuItem.setIndentationLevel(_indentationLevel: Integer);
@ -521,7 +521,7 @@ end;
function NSMenuItem.indentationLevel: Integer; function NSMenuItem.indentationLevel: Integer;
begin begin
Result := Integer(objc_msgSend(Handle, sel_registerName(PChar(StrNSMenuItem_indentationLevel)), [])); Result := {%H-}Integer(objc_msgSend(Handle, sel_registerName(PChar(StrNSMenuItem_indentationLevel)), []));
end; end;
{.$endif} {.$endif}
@ -567,7 +567,7 @@ end;
function NSMenuItem.tag: PtrInt; function NSMenuItem.tag: PtrInt;
begin begin
Result := Integer(objc_msgSend(Handle, sel_registerName(PChar(StrNSMenuItem_tag)), [])); Result := {%H-}Integer(objc_msgSend(Handle, sel_registerName(PChar(StrNSMenuItem_tag)), []));
end; end;
procedure NSMenuItem.setRepresentedObject(_anObject: lobjc.id); procedure NSMenuItem.setRepresentedObject(_anObject: lobjc.id);

8
lcl/interfaces/carbon/pascocoa/appkit/NSOpenPanel.inc
View File

@ -103,7 +103,7 @@ end;
function NSOpenPanel.resolvesAliases: LongBool; function NSOpenPanel.resolvesAliases: LongBool;
begin begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSOpenPanel_resolvesAliases)), [])); Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSOpenPanel_resolvesAliases)), []));
end; end;
procedure NSOpenPanel.setResolvesAliases(_flag: LongBool); procedure NSOpenPanel.setResolvesAliases(_flag: LongBool);
@ -118,7 +118,7 @@ end;
function NSOpenPanel.canChooseDirectories: LongBool; function NSOpenPanel.canChooseDirectories: LongBool;
begin begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSOpenPanel_canChooseDirectories)), [])); Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSOpenPanel_canChooseDirectories)), []));
end; end;
procedure NSOpenPanel.setCanChooseDirectories(_flag: LongBool); procedure NSOpenPanel.setCanChooseDirectories(_flag: LongBool);
@ -133,7 +133,7 @@ end;
function NSOpenPanel.allowsMultipleSelection: LongBool; function NSOpenPanel.allowsMultipleSelection: LongBool;
begin begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSOpenPanel_allowsMultipleSelection)), [])); Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSOpenPanel_allowsMultipleSelection)), []));
end; end;
procedure NSOpenPanel.setAllowsMultipleSelection(_flag: LongBool); procedure NSOpenPanel.setAllowsMultipleSelection(_flag: LongBool);
@ -148,7 +148,7 @@ end;
function NSOpenPanel.canChooseFiles: LongBool; function NSOpenPanel.canChooseFiles: LongBool;
begin begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSOpenPanel_canChooseFiles)), [])); Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSOpenPanel_canChooseFiles)), []));
end; end;
procedure NSOpenPanel.setCanChooseFiles(_flag: LongBool); procedure NSOpenPanel.setCanChooseFiles(_flag: LongBool);

6
lcl/interfaces/carbon/pascocoa/appkit/NSPanel.inc
View File

@ -102,7 +102,7 @@ end;
function NSPanel.isFloatingPanel: LongBool; function NSPanel.isFloatingPanel: LongBool;
begin begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSPanel_isFloatingPanel)), [])); Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSPanel_isFloatingPanel)), []));
end; end;
procedure NSPanel.setFloatingPanel(_flag: LongBool); procedure NSPanel.setFloatingPanel(_flag: LongBool);
@ -117,7 +117,7 @@ end;
function NSPanel.becomesKeyOnlyIfNeeded: LongBool; function NSPanel.becomesKeyOnlyIfNeeded: LongBool;
begin begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSPanel_becomesKeyOnlyIfNeeded)), [])); Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSPanel_becomesKeyOnlyIfNeeded)), []));
end; end;
procedure NSPanel.setBecomesKeyOnlyIfNeeded(_flag: LongBool); procedure NSPanel.setBecomesKeyOnlyIfNeeded(_flag: LongBool);
@ -132,7 +132,7 @@ end;
function NSPanel.worksWhenModal: LongBool; function NSPanel.worksWhenModal: LongBool;
begin begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSPanel_worksWhenModal)), [])); Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSPanel_worksWhenModal)), []));
end; end;
procedure NSPanel.setWorksWhenModal(_flag: LongBool); procedure NSPanel.setWorksWhenModal(_flag: LongBool);

14
lcl/interfaces/carbon/pascocoa/appkit/NSSavePanel.inc
View File

@ -220,7 +220,7 @@ end;
function NSSavePanel.allowsOtherFileTypes: LongBool; function NSSavePanel.allowsOtherFileTypes: LongBool;
begin begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSSavePanel_allowsOtherFileTypes)), [])); Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSSavePanel_allowsOtherFileTypes)), []));
end; end;
procedure NSSavePanel.setAllowsOtherFileTypes(_flag: LongBool); procedure NSSavePanel.setAllowsOtherFileTypes(_flag: LongBool);
@ -268,13 +268,13 @@ end;
function NSSavePanel.isExpanded: LongBool; function NSSavePanel.isExpanded: LongBool;
begin begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSSavePanel_isExpanded)), [])); Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSSavePanel_isExpanded)), []));
end; end;
{.$ifdef MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_3} {.$ifdef MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_3}
function NSSavePanel.canCreateDirectories: LongBool; function NSSavePanel.canCreateDirectories: LongBool;
begin begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSSavePanel_canCreateDirectories)), [])); Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSSavePanel_canCreateDirectories)), []));
end; end;
procedure NSSavePanel.setCanCreateDirectories(_flag: LongBool); procedure NSSavePanel.setCanCreateDirectories(_flag: LongBool);
@ -291,7 +291,7 @@ end;
{.$ifdef MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_3} {.$ifdef MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_3}
function NSSavePanel.canSelectHiddenExtension: LongBool; function NSSavePanel.canSelectHiddenExtension: LongBool;
begin begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSSavePanel_canSelectHiddenExtension)), [])); Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSSavePanel_canSelectHiddenExtension)), []));
end; end;
{.$endif} {.$endif}
@ -307,7 +307,7 @@ end;
function NSSavePanel.isExtensionHidden: LongBool; function NSSavePanel.isExtensionHidden: LongBool;
begin begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSSavePanel_isExtensionHidden)), [])); Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSSavePanel_isExtensionHidden)), []));
end; end;
procedure NSSavePanel.setExtensionHidden(_flag: LongBool); procedure NSSavePanel.setExtensionHidden(_flag: LongBool);
@ -322,7 +322,7 @@ end;
function NSSavePanel.treatsFilePackagesAsDirectories: LongBool; function NSSavePanel.treatsFilePackagesAsDirectories: LongBool;
begin begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSSavePanel_treatsFilePackagesAsDirectories)), [])); Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSSavePanel_treatsFilePackagesAsDirectories)), []));
end; end;
procedure NSSavePanel.setTreatsFilePackagesAsDirectories(_flag: LongBool); procedure NSSavePanel.setTreatsFilePackagesAsDirectories(_flag: LongBool);
@ -456,7 +456,7 @@ end;
function NSSavePanel.runModal: Integer; function NSSavePanel.runModal: Integer;
begin begin
Result := Integer(objc_msgSend(Handle, sel_registerName(PChar(StrNSSavePanel_runModal)), [])); Result := {%H-}Integer(objc_msgSend(Handle, sel_registerName(PChar(StrNSSavePanel_runModal)), []));
end; end;
{$endif} {$endif}

2
lcl/interfaces/carbon/pascocoa/appkit/NSStatusBar.inc
View File

@ -91,7 +91,7 @@ end;
function NSStatusBar.isVertical: LongBool; function NSStatusBar.isVertical: LongBool;
begin begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSStatusBar_isVertical)), [])); Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSStatusBar_isVertical)), []));
end; end;
function NSStatusBar.thickness: Single; function NSStatusBar.thickness: Single;

4
lcl/interfaces/carbon/pascocoa/appkit/NSStatusItem.inc
View File

@ -264,7 +264,7 @@ end;
function NSStatusItem.isEnabled: LongBool; function NSStatusItem.isEnabled: LongBool;
begin begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSStatusItem_isEnabled)), [])); Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSStatusItem_isEnabled)), []));
end; end;
procedure NSStatusItem.setEnabled(_enabled: LongBool); procedure NSStatusItem.setEnabled(_enabled: LongBool);
@ -304,7 +304,7 @@ end;
function NSStatusItem.highlightMode: LongBool; function NSStatusItem.highlightMode: LongBool;
begin begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSStatusItem_highlightMode)), [])); Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSStatusItem_highlightMode)), []));
end; end;
procedure NSStatusItem.sendActionOn(_mask: Integer); procedure NSStatusItem.sendActionOn(_mask: Integer);

20
lcl/interfaces/carbon/pascocoa/appkit/NSText.inc
View File

@ -348,7 +348,7 @@ end;
function NSText.isEditable: LongBool; function NSText.isEditable: LongBool;
begin begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSText_isEditable)), [])); Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSText_isEditable)), []));
end; end;
procedure NSText.setEditable(_flag: LongBool); procedure NSText.setEditable(_flag: LongBool);
@ -363,7 +363,7 @@ end;
function NSText.isSelectable: LongBool; function NSText.isSelectable: LongBool;
begin begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSText_isSelectable)), [])); Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSText_isSelectable)), []));
end; end;
procedure NSText.setSelectable(_flag: LongBool); procedure NSText.setSelectable(_flag: LongBool);
@ -378,7 +378,7 @@ end;
function NSText.isRichText: LongBool; function NSText.isRichText: LongBool;
begin begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSText_isRichText)), [])); Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSText_isRichText)), []));
end; end;
procedure NSText.setRichText(_flag: LongBool); procedure NSText.setRichText(_flag: LongBool);
@ -393,7 +393,7 @@ end;
function NSText.importsGraphics: LongBool; function NSText.importsGraphics: LongBool;
begin begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSText_importsGraphics)), [])); Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSText_importsGraphics)), []));
end; end;
procedure NSText.setImportsGraphics(_flag: LongBool); procedure NSText.setImportsGraphics(_flag: LongBool);
@ -433,7 +433,7 @@ end;
function NSText.drawsBackground: LongBool; function NSText.drawsBackground: LongBool;
begin begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSText_drawsBackground)), [])); Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSText_drawsBackground)), []));
end; end;
procedure NSText.setFont(_obj: lobjc.id {NSFont}); procedure NSText.setFont(_obj: lobjc.id {NSFont});
@ -510,7 +510,7 @@ end;
function NSText.isFieldEditor: LongBool; function NSText.isFieldEditor: LongBool;
begin begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSText_isFieldEditor)), [])); Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSText_isFieldEditor)), []));
end; end;
procedure NSText.setTextColor_range(_color: lobjc.id {NSColor}; _range: NSRange); procedure NSText.setTextColor_range(_color: lobjc.id {NSColor}; _range: NSRange);
@ -535,7 +535,7 @@ end;
function NSText.usesFontPanel: LongBool; function NSText.usesFontPanel: LongBool;
begin begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSText_usesFontPanel)), [])); Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSText_usesFontPanel)), []));
end; end;
procedure NSText.setUsesFontPanel(_flag: LongBool); procedure NSText.setUsesFontPanel(_flag: LongBool);
@ -580,7 +580,7 @@ end;
function NSText.isHorizontallyResizable: LongBool; function NSText.isHorizontallyResizable: LongBool;
begin begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSText_isHorizontallyResizable)), [])); Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSText_isHorizontallyResizable)), []));
end; end;
procedure NSText.setHorizontallyResizable(_flag: LongBool); procedure NSText.setHorizontallyResizable(_flag: LongBool);
@ -595,7 +595,7 @@ end;
function NSText.isVerticallyResizable: LongBool; function NSText.isVerticallyResizable: LongBool;
begin begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSText_isVerticallyResizable)), [])); Result := {%H-}{%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSText_isVerticallyResizable)), []));
end; end;
procedure NSText.setVerticallyResizable(_flag: LongBool); procedure NSText.setVerticallyResizable(_flag: LongBool);
@ -815,7 +815,7 @@ end;
function NSText.isRulerVisible: LongBool; function NSText.isRulerVisible: LongBool;
begin begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSText_isRulerVisible)), [])); Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSText_isRulerVisible)), []));
end; end;
function NSText.selectedRange: NSRange; function NSText.selectedRange: NSRange;

16
lcl/interfaces/carbon/pascocoa/appkit/NSTextField.inc
View File

@ -141,7 +141,7 @@ end;
function NSTextField.drawsBackground: LongBool; function NSTextField.drawsBackground: LongBool;
begin begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSTextField_drawsBackground)), [])); Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSTextField_drawsBackground)), []));
end; end;
procedure NSTextField.setTextColor(_color: lobjc.id {NSColor}); procedure NSTextField.setTextColor(_color: lobjc.id {NSColor});
@ -161,7 +161,7 @@ end;
function NSTextField.isBordered: LongBool; function NSTextField.isBordered: LongBool;
begin begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSTextField_isBordered)), [])); Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSTextField_isBordered)), []));
end; end;
procedure NSTextField.setBordered(_flag: LongBool); procedure NSTextField.setBordered(_flag: LongBool);
@ -176,7 +176,7 @@ end;
function NSTextField.isBezeled: LongBool; function NSTextField.isBezeled: LongBool;
begin begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSTextField_isBezeled)), [])); Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSTextField_isBezeled)), []));
end; end;
procedure NSTextField.setBezeled(_flag: LongBool); procedure NSTextField.setBezeled(_flag: LongBool);
@ -191,7 +191,7 @@ end;
function NSTextField.isEditable: LongBool; function NSTextField.isEditable: LongBool;
begin begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSTextField_isEditable)), [])); Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSTextField_isEditable)), []));
end; end;
procedure NSTextField.setEditable(_flag: LongBool); procedure NSTextField.setEditable(_flag: LongBool);
@ -206,7 +206,7 @@ end;
function NSTextField.isSelectable: LongBool; function NSTextField.isSelectable: LongBool;
begin begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSTextField_isSelectable)), [])); Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSTextField_isSelectable)), []));
end; end;
procedure NSTextField.setSelectable(_flag: LongBool); procedure NSTextField.setSelectable(_flag: LongBool);
@ -296,7 +296,7 @@ end;
function NSTextField.acceptsFirstResponder: LongBool; function NSTextField.acceptsFirstResponder: LongBool;
begin begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSTextField_acceptsFirstResponder)), [])); Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSTextField_acceptsFirstResponder)), []));
end; end;
{.$ifdef MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_2} {.$ifdef MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_2}
@ -328,7 +328,7 @@ end;
function NSTextField.allowsEditingTextAttributes: LongBool; function NSTextField.allowsEditingTextAttributes: LongBool;
begin begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSTextField_allowsEditingTextAttributes)), [])); Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSTextField_allowsEditingTextAttributes)), []));
end; end;
procedure NSTextField.setAllowsEditingTextAttributes(_flag: LongBool); procedure NSTextField.setAllowsEditingTextAttributes(_flag: LongBool);
@ -343,7 +343,7 @@ end;
function NSTextField.importsGraphics: LongBool; function NSTextField.importsGraphics: LongBool;
begin begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSTextField_importsGraphics)), [])); Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSTextField_importsGraphics)), []));
end; end;
procedure NSTextField.setImportsGraphics(_flag: LongBool); procedure NSTextField.setImportsGraphics(_flag: LongBool);

2
lcl/interfaces/carbon/pascocoa/appkit/NSTextFieldCell.inc
View File

@ -118,7 +118,7 @@ end;
function NSTextFieldCell.drawsBackground: LongBool; function NSTextFieldCell.drawsBackground: LongBool;
begin begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSTextFieldCell_drawsBackground)), [])); Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSTextFieldCell_drawsBackground)), []));
end; end;
procedure NSTextFieldCell.setTextColor(_color: lobjc.id {NSColor}); procedure NSTextFieldCell.setTextColor(_color: lobjc.id {NSColor});

38
lcl/interfaces/carbon/pascocoa/appkit/NSTextView.inc
View File

@ -958,7 +958,7 @@ end;
function NSTextView.shouldDrawInsertionPoint: LongBool; function NSTextView.shouldDrawInsertionPoint: LongBool;
begin begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSTextView_shouldDrawInsertionPoint)), [])); Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSTextView_shouldDrawInsertionPoint)), []));
end; end;
procedure NSTextView.drawInsertionPointInRect_color_turnedOn(_rect: NSRect; _color: lobjc.id {NSColor}; _flag: LongBool); procedure NSTextView.drawInsertionPointInRect_color_turnedOn(_rect: NSRect; _color: lobjc.id {NSColor}; _flag: LongBool);
@ -1208,7 +1208,7 @@ end;
function NSTextView.acceptsGlyphInfo: LongBool; function NSTextView.acceptsGlyphInfo: LongBool;
begin begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSTextView_acceptsGlyphInfo)), [])); Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSTextView_acceptsGlyphInfo)), []));
end; end;
procedure NSTextView.setAcceptsGlyphInfo(_flag: LongBool); procedure NSTextView.setAcceptsGlyphInfo(_flag: LongBool);
@ -1358,7 +1358,7 @@ end;
function NSTextView.usesRuler: LongBool; function NSTextView.usesRuler: LongBool;
begin begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSTextView_usesRuler)), [])); Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSTextView_usesRuler)), []));
end; end;
procedure NSTextView.setUsesRuler(_flag: LongBool); procedure NSTextView.setUsesRuler(_flag: LongBool);
@ -1383,7 +1383,7 @@ end;
function NSTextView.isContinuousSpellCheckingEnabled: LongBool; function NSTextView.isContinuousSpellCheckingEnabled: LongBool;
begin begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSTextView_isContinuousSpellCheckingEnabled)), [])); Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSTextView_isContinuousSpellCheckingEnabled)), []));
end; end;
procedure NSTextView.toggleContinuousSpellChecking(_sender: lobjc.id); procedure NSTextView.toggleContinuousSpellChecking(_sender: lobjc.id);
@ -1398,7 +1398,7 @@ end;
function NSTextView.spellCheckerDocumentTag: Integer; function NSTextView.spellCheckerDocumentTag: Integer;
begin begin
Result := Integer(objc_msgSend(Handle, sel_registerName(PChar(StrNSTextView_spellCheckerDocumentTag)), [])); Result := {%H-}Integer(objc_msgSend(Handle, sel_registerName(PChar(StrNSTextView_spellCheckerDocumentTag)), []));
end; end;
function NSTextView.typingAttributes: CFDictionaryRef; function NSTextView.typingAttributes: CFDictionaryRef;
@ -1483,7 +1483,7 @@ end;
function NSTextView.usesFindPanel: LongBool; function NSTextView.usesFindPanel: LongBool;
begin begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSTextView_usesFindPanel)), [])); Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSTextView_usesFindPanel)), []));
end; end;
procedure NSTextView.setAllowsDocumentBackgroundColorChange(_flag: LongBool); procedure NSTextView.setAllowsDocumentBackgroundColorChange(_flag: LongBool);
@ -1498,7 +1498,7 @@ end;
function NSTextView.allowsDocumentBackgroundColorChange: LongBool; function NSTextView.allowsDocumentBackgroundColorChange: LongBool;
begin begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSTextView_allowsDocumentBackgroundColorChange)), [])); Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSTextView_allowsDocumentBackgroundColorChange)), []));
end; end;
procedure NSTextView.setDefaultParagraphStyle(_paragraphStyle: lobjc.id {NSParagraphStyle}); procedure NSTextView.setDefaultParagraphStyle(_paragraphStyle: lobjc.id {NSParagraphStyle});
@ -1524,7 +1524,7 @@ end;
function NSTextView.isSelectable: LongBool; function NSTextView.isSelectable: LongBool;
begin begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSTextView_isSelectable)), [])); Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSTextView_isSelectable)), []));
end; end;
procedure NSTextView.setSelectable(_flag: LongBool); procedure NSTextView.setSelectable(_flag: LongBool);
@ -1539,7 +1539,7 @@ end;
function NSTextView.isEditable: LongBool; function NSTextView.isEditable: LongBool;
begin begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSTextView_isEditable)), [])); Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSTextView_isEditable)), []));
end; end;
procedure NSTextView.setEditable(_flag: LongBool); procedure NSTextView.setEditable(_flag: LongBool);
@ -1554,7 +1554,7 @@ end;
function NSTextView.isRichText: LongBool; function NSTextView.isRichText: LongBool;
begin begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSTextView_isRichText)), [])); Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSTextView_isRichText)), []));
end; end;
procedure NSTextView.setRichText(_flag: LongBool); procedure NSTextView.setRichText(_flag: LongBool);
@ -1569,7 +1569,7 @@ end;
function NSTextView.importsGraphics: LongBool; function NSTextView.importsGraphics: LongBool;
begin begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSTextView_importsGraphics)), [])); Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSTextView_importsGraphics)), []));
end; end;
procedure NSTextView.setImportsGraphics(_flag: LongBool); procedure NSTextView.setImportsGraphics(_flag: LongBool);
@ -1599,7 +1599,7 @@ end;
function NSTextView.isFieldEditor: LongBool; function NSTextView.isFieldEditor: LongBool;
begin begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSTextView_isFieldEditor)), [])); Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSTextView_isFieldEditor)), []));
end; end;
procedure NSTextView.setFieldEditor(_flag: LongBool); procedure NSTextView.setFieldEditor(_flag: LongBool);
@ -1614,7 +1614,7 @@ end;
function NSTextView.usesFontPanel: LongBool; function NSTextView.usesFontPanel: LongBool;
begin begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSTextView_usesFontPanel)), [])); Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSTextView_usesFontPanel)), []));
end; end;
procedure NSTextView.setUsesFontPanel(_flag: LongBool); procedure NSTextView.setUsesFontPanel(_flag: LongBool);
@ -1629,7 +1629,7 @@ end;
function NSTextView.isRulerVisible: LongBool; function NSTextView.isRulerVisible: LongBool;
begin begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSTextView_isRulerVisible)), [])); Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSTextView_isRulerVisible)), []));
end; end;
procedure NSTextView.setBackgroundColor(_color: lobjc.id {NSColor}); procedure NSTextView.setBackgroundColor(_color: lobjc.id {NSColor});
@ -1659,7 +1659,7 @@ end;
function NSTextView.drawsBackground: LongBool; function NSTextView.drawsBackground: LongBool;
begin begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSTextView_drawsBackground)), [])); Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSTextView_drawsBackground)), []));
end; end;
procedure NSTextView.setSelectedRange(_charRange: NSRange); procedure NSTextView.setSelectedRange(_charRange: NSRange);
@ -1674,7 +1674,7 @@ end;
function NSTextView.allowsUndo: LongBool; function NSTextView.allowsUndo: LongBool;
begin begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSTextView_allowsUndo)), [])); Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSTextView_allowsUndo)), []));
end; end;
procedure NSTextView.setAllowsUndo(_flag: LongBool); procedure NSTextView.setAllowsUndo(_flag: LongBool);
@ -1689,17 +1689,17 @@ end;
function NSTextView.resignFirstResponder: LongBool; function NSTextView.resignFirstResponder: LongBool;
begin begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSTextView_resignFirstResponder)), [])); Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSTextView_resignFirstResponder)), []));
end; end;
function NSTextView.becomeFirstResponder: LongBool; function NSTextView.becomeFirstResponder: LongBool;
begin begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSTextView_becomeFirstResponder)), [])); Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSTextView_becomeFirstResponder)), []));
end; end;
function NSTextView.smartInsertDeleteEnabled: LongBool; function NSTextView.smartInsertDeleteEnabled: LongBool;
begin begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSTextView_smartInsertDeleteEnabled)), [])); Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSTextView_smartInsertDeleteEnabled)), []));
end; end;
procedure NSTextView.setSmartInsertDeleteEnabled(_flag: LongBool); procedure NSTextView.setSmartInsertDeleteEnabled(_flag: LongBool);

10
lcl/interfaces/carbon/pascocoa/appkit/NSToolbar.inc
View File

@ -219,7 +219,7 @@ end;
function NSToolbar.isVisible: LongBool; function NSToolbar.isVisible: LongBool;
begin begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSToolbar_isVisible)), [])); Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSToolbar_isVisible)), []));
end; end;
procedure NSToolbar.runCustomizationPalette(_sender: lobjc.id); procedure NSToolbar.runCustomizationPalette(_sender: lobjc.id);
@ -234,7 +234,7 @@ end;
function NSToolbar.customizationPaletteIsRunning: LongBool; function NSToolbar.customizationPaletteIsRunning: LongBool;
begin begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSToolbar_customizationPaletteIsRunning)), [])); Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSToolbar_customizationPaletteIsRunning)), []));
end; end;
procedure NSToolbar.setDisplayMode(_displayMode: NSToolbarDisplayMode); procedure NSToolbar.setDisplayMode(_displayMode: NSToolbarDisplayMode);
@ -299,7 +299,7 @@ end;
function NSToolbar.showsBaselineSeparator: LongBool; function NSToolbar.showsBaselineSeparator: LongBool;
begin begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSToolbar_showsBaselineSeparator)), [])); Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSToolbar_showsBaselineSeparator)), []));
end; end;
{.$endif} {.$endif}
@ -315,7 +315,7 @@ end;
function NSToolbar.allowsUserCustomization: LongBool; function NSToolbar.allowsUserCustomization: LongBool;
begin begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSToolbar_allowsUserCustomization)), [])); Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSToolbar_allowsUserCustomization)), []));
end; end;
function NSToolbar.identifier: CFStringRef; function NSToolbar.identifier: CFStringRef;
@ -345,7 +345,7 @@ end;
function NSToolbar.autosavesConfiguration: LongBool; function NSToolbar.autosavesConfiguration: LongBool;
begin begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSToolbar_autosavesConfiguration)), [])); Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSToolbar_autosavesConfiguration)), []));
end; end;
procedure NSToolbar.setConfigurationFromDictionary(_configDict: CFDictionaryRef); procedure NSToolbar.setConfigurationFromDictionary(_configDict: CFDictionaryRef);

10
lcl/interfaces/carbon/pascocoa/appkit/NSToolbarItem.inc
View File

@ -269,7 +269,7 @@ end;
function NSToolbarItem.tag: Integer; function NSToolbarItem.tag: Integer;
begin begin
Result := Integer(objc_msgSend(Handle, sel_registerName(PChar(StrNSToolbarItem_tag)), [])); Result := {%H-}Integer(objc_msgSend(Handle, sel_registerName(PChar(StrNSToolbarItem_tag)), []));
end; end;
procedure NSToolbarItem.setTarget(_target: lobjc.id); procedure NSToolbarItem.setTarget(_target: lobjc.id);
@ -314,7 +314,7 @@ end;
function NSToolbarItem.isEnabled: LongBool; function NSToolbarItem.isEnabled: LongBool;
begin begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSToolbarItem_isEnabled)), [])); Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSToolbarItem_isEnabled)), []));
end; end;
procedure NSToolbarItem.setImage(_image: lobjc.id {NSImage}); procedure NSToolbarItem.setImage(_image: lobjc.id {NSImage});
@ -390,7 +390,7 @@ end;
function NSToolbarItem.visibilityPriority: Integer; function NSToolbarItem.visibilityPriority: Integer;
begin begin
Result := Integer(objc_msgSend(Handle, sel_registerName(PChar(StrNSToolbarItem_visibilityPriority)), [])); Result := {%H-}Integer(objc_msgSend(Handle, sel_registerName(PChar(StrNSToolbarItem_visibilityPriority)), []));
end; end;
{.$endif} {.$endif}
@ -412,13 +412,13 @@ end;
function NSToolbarItem.autovalidates: LongBool; function NSToolbarItem.autovalidates: LongBool;
begin begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSToolbarItem_autovalidates)), [])); Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSToolbarItem_autovalidates)), []));
end; end;
{.$endif} {.$endif}
function NSToolbarItem.allowsDuplicatesInToolbar: LongBool; function NSToolbarItem.allowsDuplicatesInToolbar: LongBool;
begin begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSToolbarItem_allowsDuplicatesInToolbar)), [])); Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSToolbarItem_allowsDuplicatesInToolbar)), []));
end; end;
{$endif} {$endif}

44
lcl/interfaces/carbon/pascocoa/appkit/NSView.inc
View File

@ -518,12 +518,12 @@ end;
function NSView.isHidden: LongBool; function NSView.isHidden: LongBool;
begin begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSView_isHidden)), [])); Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSView_isHidden)), []));
end; end;
function NSView.isHiddenOrHasHiddenAncestor: LongBool; function NSView.isHiddenOrHasHiddenAncestor: LongBool;
begin begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSView_isHiddenOrHasHiddenAncestor)), [])); Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSView_isHiddenOrHasHiddenAncestor)), []));
end; end;
procedure NSView.getRectsBeingDrawn_count(_rects: NSRect; _count: Integer); procedure NSView.getRectsBeingDrawn_count(_rects: NSRect; _count: Integer);
@ -548,7 +548,7 @@ end;
function NSView.wantsDefaultClipping: LongBool; function NSView.wantsDefaultClipping: LongBool;
begin begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSView_wantsDefaultClipping)), [])); Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSView_wantsDefaultClipping)), []));
end; end;
{.$endif} {.$endif}
@ -664,7 +664,7 @@ end;
function NSView.postsFrameChangedNotifications: LongBool; function NSView.postsFrameChangedNotifications: LongBool;
begin begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSView_postsFrameChangedNotifications)), [])); Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSView_postsFrameChangedNotifications)), []));
end; end;
procedure NSView.resizeSubviewsWithOldSize(_oldSize: NSSize); procedure NSView.resizeSubviewsWithOldSize(_oldSize: NSSize);
@ -699,7 +699,7 @@ end;
function NSView.autoresizesSubviews: LongBool; function NSView.autoresizesSubviews: LongBool;
begin begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSView_autoresizesSubviews)), [])); Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSView_autoresizesSubviews)), []));
end; end;
procedure NSView.setAutoresizingMask(_mask: LongWord); procedure NSView.setAutoresizingMask(_mask: LongWord);
@ -714,7 +714,7 @@ end;
function NSView.autoresizingMask: LongWord; function NSView.autoresizingMask: LongWord;
begin begin
Result := LongWord(objc_msgSend(Handle, sel_registerName(PChar(StrNSView_autoresizingMask)), [])); Result := {%H-}LongWord(objc_msgSend(Handle, sel_registerName(PChar(StrNSView_autoresizingMask)), []));
end; end;
procedure NSView.setFrameOrigin(_newOrigin: NSPoint); procedure NSView.setFrameOrigin(_newOrigin: NSPoint);
@ -849,22 +849,22 @@ end;
function NSView.isFlipped: LongBool; function NSView.isFlipped: LongBool;
begin begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSView_isFlipped)), [])); Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSView_isFlipped)), []));
end; end;
function NSView.isRotatedFromBase: LongBool; function NSView.isRotatedFromBase: LongBool;
begin begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSView_isRotatedFromBase)), [])); Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSView_isRotatedFromBase)), []));
end; end;
function NSView.isRotatedOrScaledFromBase: LongBool; function NSView.isRotatedOrScaledFromBase: LongBool;
begin begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSView_isRotatedOrScaledFromBase)), [])); Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSView_isRotatedOrScaledFromBase)), []));
end; end;
function NSView.isOpaque: LongBool; function NSView.isOpaque: LongBool;
begin begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSView_isOpaque)), [])); Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSView_isOpaque)), []));
end; end;
function NSView.convertPoint_fromView(_aPoint: NSPoint; _aView: lobjc.id {NSView}): NSPoint; function NSView.convertPoint_fromView(_aPoint: NSPoint; _aView: lobjc.id {NSView}): NSPoint;
@ -939,7 +939,7 @@ end;
function NSView.canDraw: LongBool; function NSView.canDraw: LongBool;
begin begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSView_canDraw)), [])); Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSView_canDraw)), []));
end; end;
procedure NSView.setNeedsDisplay(_flag: LongBool); procedure NSView.setNeedsDisplay(_flag: LongBool);
@ -964,7 +964,7 @@ end;
function NSView.needsDisplay: LongBool; function NSView.needsDisplay: LongBool;
begin begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSView_needsDisplay)), [])); Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSView_needsDisplay)), []));
end; end;
procedure NSView.lockFocus; procedure NSView.lockFocus;
@ -979,7 +979,7 @@ end;
function NSView.lockFocusIfCanDraw: LongBool; function NSView.lockFocusIfCanDraw: LongBool;
begin begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSView_lockFocusIfCanDraw)), [])); Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSView_lockFocusIfCanDraw)), []));
end; end;
{.$ifdef MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_4} {.$ifdef MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_4}
@ -1109,7 +1109,7 @@ end;
{.$endif} {.$endif}
function NSView.gState: Integer; function NSView.gState: Integer;
begin begin
Result := Integer(objc_msgSend(Handle, sel_registerName(PChar(StrNSView_gState)), [])); Result := {%H-}Integer(objc_msgSend(Handle, sel_registerName(PChar(StrNSView_gState)), []));
end; end;
procedure NSView.allocateGState; procedure NSView.allocateGState;
@ -1214,7 +1214,7 @@ end;
function NSView.tag: Integer; function NSView.tag: Integer;
begin begin
Result := Integer(objc_msgSend(Handle, sel_registerName(PChar(StrNSView_tag)), [])); Result := {%H-}Integer(objc_msgSend(Handle, sel_registerName(PChar(StrNSView_tag)), []));
end; end;
function NSView.performKeyEquivalent(_theEvent: lobjc.id {NSEvent}): LongBool; function NSView.performKeyEquivalent(_theEvent: lobjc.id {NSEvent}): LongBool;
@ -1249,13 +1249,13 @@ end;
function NSView.needsPanelToBecomeKey: LongBool; function NSView.needsPanelToBecomeKey: LongBool;
begin begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSView_needsPanelToBecomeKey)), [])); Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSView_needsPanelToBecomeKey)), []));
end; end;
{.$ifdef MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_2} {.$ifdef MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_2}
function NSView.mouseDownCanMoveWindow: LongBool; function NSView.mouseDownCanMoveWindow: LongBool;
begin begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSView_mouseDownCanMoveWindow)), [])); Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSView_mouseDownCanMoveWindow)), []));
end; end;
{.$endif} {.$endif}
@ -1311,7 +1311,7 @@ end;
function NSView.shouldDrawColor: LongBool; function NSView.shouldDrawColor: LongBool;
begin begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSView_shouldDrawColor)), [])); Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSView_shouldDrawColor)), []));
end; end;
procedure NSView.setPostsBoundsChangedNotifications(_flag: LongBool); procedure NSView.setPostsBoundsChangedNotifications(_flag: LongBool);
@ -1326,7 +1326,7 @@ end;
function NSView.postsBoundsChangedNotifications: LongBool; function NSView.postsBoundsChangedNotifications: LongBool;
begin begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSView_postsBoundsChangedNotifications)), [])); Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSView_postsBoundsChangedNotifications)), []));
end; end;
function NSView.enclosingScrollView: lobjc.id; function NSView.enclosingScrollView: lobjc.id;
@ -1401,13 +1401,13 @@ end;
function NSView.inLiveResize: LongBool; function NSView.inLiveResize: LongBool;
begin begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSView_inLiveResize)), [])); Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSView_inLiveResize)), []));
end; end;
{.$ifdef MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_4} {.$ifdef MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_4}
function NSView.preservesContentDuringLiveResize: LongBool; function NSView.preservesContentDuringLiveResize: LongBool;
begin begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSView_preservesContentDuringLiveResize)), [])); Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSView_preservesContentDuringLiveResize)), []));
end; end;
function NSView.rectPreservedDuringLiveResize: NSRect; function NSView.rectPreservedDuringLiveResize: NSRect;
@ -1464,7 +1464,7 @@ end;
{.$ifdef MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_3} {.$ifdef MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_3}
function NSView.canBecomeKeyView: LongBool; function NSView.canBecomeKeyView: LongBool;
begin begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSView_canBecomeKeyView)), [])); Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSView_canBecomeKeyView)), []));
end; end;
{.$endif} {.$endif}

78
lcl/interfaces/carbon/pascocoa/appkit/NSWindow.inc
View File

@ -666,7 +666,7 @@ end;
class function NSWindow.defaultDepthLimit: NSWindowDepth; class function NSWindow.defaultDepthLimit: NSWindowDepth;
begin begin
Result := NSWindowDepth(objc_msgSend(getClass, sel_registerName(PChar(StrNSWindow_defaultDepthLimit)), [])); Result := {%H-}NSWindowDepth(objc_msgSend(getClass, sel_registerName(PChar(StrNSWindow_defaultDepthLimit)), []));
end; end;
{.$ifdef MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_3} {.$ifdef MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_3}
@ -767,7 +767,7 @@ end;
function NSWindow.isExcludedFromWindowsMenu: LongBool; function NSWindow.isExcludedFromWindowsMenu: LongBool;
begin begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_isExcludedFromWindowsMenu)), [])); Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_isExcludedFromWindowsMenu)), []));
end; end;
procedure NSWindow.setContentView(_aView: lobjc.id {NSView}); procedure NSWindow.setContentView(_aView: lobjc.id {NSView});
@ -802,12 +802,12 @@ end;
function NSWindow.windowNumber: Integer; function NSWindow.windowNumber: Integer;
begin begin
Result := Integer(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_windowNumber)), [])); Result := {%H-}Integer(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_windowNumber)), []));
end; end;
function NSWindow.styleMask: LongWord; function NSWindow.styleMask: LongWord;
begin begin
Result := LongWord(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_styleMask)), [])); Result := {%H-}LongWord(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_styleMask)), []));
end; end;
function NSWindow.fieldEditor_forObject(_createFlag: LongBool; _anObject: lobjc.id): lobjc.id; function NSWindow.fieldEditor_forObject(_createFlag: LongBool; _anObject: lobjc.id): lobjc.id;
@ -927,7 +927,7 @@ end;
function NSWindow.showsResizeIndicator: LongBool; function NSWindow.showsResizeIndicator: LongBool;
begin begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_showsResizeIndicator)), [])); Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_showsResizeIndicator)), []));
end; end;
procedure NSWindow.setResizeIncrements(_increments: NSSize); procedure NSWindow.setResizeIncrements(_increments: NSSize);
@ -1014,7 +1014,7 @@ end;
function NSWindow.isFlushWindowDisabled: LongBool; function NSWindow.isFlushWindowDisabled: LongBool;
begin begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_isFlushWindowDisabled)), [])); Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_isFlushWindowDisabled)), []));
end; end;
procedure NSWindow.flushWindow; procedure NSWindow.flushWindow;
@ -1039,7 +1039,7 @@ end;
function NSWindow.viewsNeedDisplay: LongBool; function NSWindow.viewsNeedDisplay: LongBool;
begin begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_viewsNeedDisplay)), [])); Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_viewsNeedDisplay)), []));
end; end;
procedure NSWindow.displayIfNeeded; procedure NSWindow.displayIfNeeded;
@ -1064,13 +1064,13 @@ end;
function NSWindow.isAutodisplay: LongBool; function NSWindow.isAutodisplay: LongBool;
begin begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_isAutodisplay)), [])); Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_isAutodisplay)), []));
end; end;
{.$ifdef MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_4} {.$ifdef MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_4}
function NSWindow.preservesContentDuringLiveResize: LongBool; function NSWindow.preservesContentDuringLiveResize: LongBool;
begin begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_preservesContentDuringLiveResize)), [])); Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_preservesContentDuringLiveResize)), []));
end; end;
procedure NSWindow.setPreservesContentDuringLiveResize(_flag: LongBool); procedure NSWindow.setPreservesContentDuringLiveResize(_flag: LongBool);
@ -1106,7 +1106,7 @@ end;
function NSWindow.resizeFlags: Integer; function NSWindow.resizeFlags: Integer;
begin begin
Result := Integer(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_resizeFlags)), [])); Result := {%H-}Integer(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_resizeFlags)), []));
end; end;
procedure NSWindow.keyDown(_theEvent: lobjc.id {NSEvent}); procedure NSWindow.keyDown(_theEvent: lobjc.id {NSEvent});
@ -1136,7 +1136,7 @@ end;
function NSWindow.isReleasedWhenClosed: LongBool; function NSWindow.isReleasedWhenClosed: LongBool;
begin begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_isReleasedWhenClosed)), [])); Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_isReleasedWhenClosed)), []));
end; end;
procedure NSWindow.miniaturize(_sender: lobjc.id); procedure NSWindow.miniaturize(_sender: lobjc.id);
@ -1161,7 +1161,7 @@ end;
function NSWindow.isZoomed: LongBool; function NSWindow.isZoomed: LongBool;
begin begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_isZoomed)), [])); Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_isZoomed)), []));
end; end;
procedure NSWindow.zoom(_sender: lobjc.id); procedure NSWindow.zoom(_sender: lobjc.id);
@ -1176,7 +1176,7 @@ end;
function NSWindow.isMiniaturized: LongBool; function NSWindow.isMiniaturized: LongBool;
begin begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_isMiniaturized)), [])); Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_isMiniaturized)), []));
end; end;
function NSWindow.tryToPerform_with(_anAction: SEL; _anObject: lobjc.id): LongBool; function NSWindow.tryToPerform_with(_anAction: SEL; _anObject: lobjc.id): LongBool;
@ -1227,7 +1227,7 @@ end;
function NSWindow.isMovableByWindowBackground: LongBool; function NSWindow.isMovableByWindowBackground: LongBool;
begin begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_isMovableByWindowBackground)), [])); Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_isMovableByWindowBackground)), []));
end; end;
{.$endif} {.$endif}
@ -1243,7 +1243,7 @@ end;
function NSWindow.hidesOnDeactivate: LongBool; function NSWindow.hidesOnDeactivate: LongBool;
begin begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_hidesOnDeactivate)), [])); Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_hidesOnDeactivate)), []));
end; end;
procedure NSWindow.setCanHide(_flag: LongBool); procedure NSWindow.setCanHide(_flag: LongBool);
@ -1258,7 +1258,7 @@ end;
function NSWindow.canHide: LongBool; function NSWindow.canHide: LongBool;
begin begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_canHide)), [])); Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_canHide)), []));
end; end;
procedure NSWindow.center; procedure NSWindow.center;
@ -1363,32 +1363,32 @@ end;
function NSWindow.isDocumentEdited: LongBool; function NSWindow.isDocumentEdited: LongBool;
begin begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_isDocumentEdited)), [])); Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_isDocumentEdited)), []));
end; end;
function NSWindow.isVisible: LongBool; function NSWindow.isVisible: LongBool;
begin begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_isVisible)), [])); Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_isVisible)), []));
end; end;
function NSWindow.isKeyWindow: LongBool; function NSWindow.isKeyWindow: LongBool;
begin begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_isKeyWindow)), [])); Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_isKeyWindow)), []));
end; end;
function NSWindow.isMainWindow: LongBool; function NSWindow.isMainWindow: LongBool;
begin begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_isMainWindow)), [])); Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_isMainWindow)), []));
end; end;
function NSWindow.canBecomeKeyWindow: LongBool; function NSWindow.canBecomeKeyWindow: LongBool;
begin begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_canBecomeKeyWindow)), [])); Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_canBecomeKeyWindow)), []));
end; end;
function NSWindow.canBecomeMainWindow: LongBool; function NSWindow.canBecomeMainWindow: LongBool;
begin begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_canBecomeMainWindow)), [])); Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_canBecomeMainWindow)), []));
end; end;
procedure NSWindow.makeKeyWindow; procedure NSWindow.makeKeyWindow;
@ -1423,7 +1423,7 @@ end;
function NSWindow.worksWhenModal: LongBool; function NSWindow.worksWhenModal: LongBool;
begin begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_worksWhenModal)), [])); Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_worksWhenModal)), []));
end; end;
function NSWindow.convertBaseToScreen(_aPoint: NSPoint): NSPoint; function NSWindow.convertBaseToScreen(_aPoint: NSPoint): NSPoint;
@ -1478,7 +1478,7 @@ end;
function NSWindow.gState: Integer; function NSWindow.gState: Integer;
begin begin
Result := Integer(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_gState)), [])); Result := {%H-}Integer(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_gState)), []));
end; end;
procedure NSWindow.setOneShot(_flag: LongBool); procedure NSWindow.setOneShot(_flag: LongBool);
@ -1493,7 +1493,7 @@ end;
function NSWindow.isOneShot: LongBool; function NSWindow.isOneShot: LongBool;
begin begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_isOneShot)), [])); Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_isOneShot)), []));
end; end;
function NSWindow.dataWithEPSInsideRect(_rect: NSRect): CFDataRef; function NSWindow.dataWithEPSInsideRect(_rect: NSRect): CFDataRef;
@ -1543,7 +1543,7 @@ end;
function NSWindow.areCursorRectsEnabled: LongBool; function NSWindow.areCursorRectsEnabled: LongBool;
begin begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_areCursorRectsEnabled)), [])); Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_areCursorRectsEnabled)), []));
end; end;
procedure NSWindow.invalidateCursorRectsForView(_aView: lobjc.id {NSView}); procedure NSWindow.invalidateCursorRectsForView(_aView: lobjc.id {NSView});
@ -1574,7 +1574,7 @@ end;
function NSWindow.allowsToolTipsWhenApplicationIsInactive: LongBool; function NSWindow.allowsToolTipsWhenApplicationIsInactive: LongBool;
begin begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_allowsToolTipsWhenApplicationIsInactive)), [])); Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_allowsToolTipsWhenApplicationIsInactive)), []));
end; end;
{.$endif} {.$endif}
@ -1605,7 +1605,7 @@ end;
function NSWindow.level: Integer; function NSWindow.level: Integer;
begin begin
Result := Integer(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_level)), [])); Result := {%H-}Integer(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_level)), []));
end; end;
procedure NSWindow.setDepthLimit(_limit: NSWindowDepth); procedure NSWindow.setDepthLimit(_limit: NSWindowDepth);
@ -1620,7 +1620,7 @@ end;
function NSWindow.depthLimit: NSWindowDepth; function NSWindow.depthLimit: NSWindowDepth;
begin begin
Result := NSWindowDepth(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_depthLimit)), [])); Result := {%H-}NSWindowDepth(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_depthLimit)), []));
end; end;
procedure NSWindow.setDynamicDepthLimit(_flag: LongBool); procedure NSWindow.setDynamicDepthLimit(_flag: LongBool);
@ -1635,7 +1635,7 @@ end;
function NSWindow.hasDynamicDepthLimit: LongBool; function NSWindow.hasDynamicDepthLimit: LongBool;
begin begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_hasDynamicDepthLimit)), [])); Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_hasDynamicDepthLimit)), []));
end; end;
function NSWindow.screen: lobjc.id; function NSWindow.screen: lobjc.id;
@ -1650,7 +1650,7 @@ end;
function NSWindow.canStoreColor: LongBool; function NSWindow.canStoreColor: LongBool;
begin begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_canStoreColor)), [])); Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_canStoreColor)), []));
end; end;
procedure NSWindow.setHasShadow(_hasShadow: LongBool); procedure NSWindow.setHasShadow(_hasShadow: LongBool);
@ -1665,7 +1665,7 @@ end;
function NSWindow.hasShadow: LongBool; function NSWindow.hasShadow: LongBool;
begin begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_hasShadow)), [])); Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_hasShadow)), []));
end; end;
{.$ifdef MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_2} {.$ifdef MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_2}
@ -1702,13 +1702,13 @@ end;
function NSWindow.isOpaque: LongBool; function NSWindow.isOpaque: LongBool;
begin begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_isOpaque)), [])); Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_isOpaque)), []));
end; end;
{.$ifdef MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_4} {.$ifdef MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_4}
function NSWindow.displaysWhenScreenProfileChanges: LongBool; function NSWindow.displaysWhenScreenProfileChanges: LongBool;
begin begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_displaysWhenScreenProfileChanges)), [])); Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_displaysWhenScreenProfileChanges)), []));
end; end;
procedure NSWindow.setDisplaysWhenScreenProfileChanges(_flag: LongBool); procedure NSWindow.setDisplaysWhenScreenProfileChanges(_flag: LongBool);
@ -1936,7 +1936,7 @@ end;
function NSWindow.acceptsMouseMovedEvents: LongBool; function NSWindow.acceptsMouseMovedEvents: LongBool;
begin begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_acceptsMouseMovedEvents)), [])); Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_acceptsMouseMovedEvents)), []));
end; end;
{.$ifdef MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_2} {.$ifdef MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_2}
@ -1952,7 +1952,7 @@ end;
function NSWindow.ignoresMouseEvents: LongBool; function NSWindow.ignoresMouseEvents: LongBool;
begin begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_ignoresMouseEvents)), [])); Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_ignoresMouseEvents)), []));
end; end;
{.$endif} {.$endif}
@ -2003,7 +2003,7 @@ end;
function NSWindow.isSheet: LongBool; function NSWindow.isSheet: LongBool;
begin begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_isSheet)), [])); Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_isSheet)), []));
end; end;
function NSWindow.attachedSheet: lobjc.id; function NSWindow.attachedSheet: lobjc.id;
@ -2185,7 +2185,7 @@ end;
function NSWindow.autorecalculatesKeyViewLoop: LongBool; function NSWindow.autorecalculatesKeyViewLoop: LongBool;
begin begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_autorecalculatesKeyViewLoop)), [])); Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_autorecalculatesKeyViewLoop)), []));
end; end;
procedure NSWindow.recalculateKeyViewLoop; procedure NSWindow.recalculateKeyViewLoop;
@ -2242,7 +2242,7 @@ end;
function NSWindow.showsToolbarButton: LongBool; function NSWindow.showsToolbarButton: LongBool;
begin begin
Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_showsToolbarButton)), [])); Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_showsToolbarButton)), []));
end; end;
{.$endif} {.$endif}

2
lcl/interfaces/carbon/pascocoa/appkit/appkit.pas
View File

@ -15,7 +15,7 @@ unit appkit;
interface interface
uses ctypes, MacOSAll, lobjc, foundation; uses MacOSAll, lobjc, foundation;
{$define HEADER} {$define HEADER}
{$include AppKit.inc} {$include AppKit.inc}