~ubuntu-branches/ubuntu/saucy/lazarus/saucy

« back to all changes in this revision

Viewing changes to lcl/interfaces/carbon/pascocoa/appkit/NSWindow.inc

  • Committer: Package Import Robot
  • Author(s): Paul Gevers, Abou Al Montacir, Bart Martens, Paul Gevers
  • Date: 2013-06-08 14:12:17 UTC
  • mfrom: (1.1.9)
  • Revision ID: package-import@ubuntu.com-20130608141217-7k0cy9id8ifcnutc
Tags: 1.0.8+dfsg-1
[ Abou Al Montacir ]
* New upstream major release and multiple maintenace release offering many
  fixes and new features marking a new milestone for the Lazarus development
  and its stability level.
  - The detailed list of changes can be found here:
    http://wiki.lazarus.freepascal.org/Lazarus_1.0_release_notes
    http://wiki.lazarus.freepascal.org/Lazarus_1.0_fixes_branch
* LCL changes:
  - LCL is now a normal package.
      + Platform independent parts of the LCL are now in the package LCLBase
      + LCL is automatically recompiled when switching the target platform,
        unless pre-compiled binaries for this target are already installed.
      + No impact on existing projects.
      + Linker options needed by LCL are no more added to projects that do
        not use the LCL package.
  - Minor changes in LCL basic classes behaviour
      + TCustomForm.Create raises an exception if a form resource is not
        found.
      + TNotebook and TPage: a new implementation of these classes was added.
      + TDBNavigator: It is now possible to have focusable buttons by setting
        Options = [navFocusableButtons] and TabStop = True, useful for
        accessibility and for devices with neither mouse nor touch screen.
      + Names of TControlBorderSpacing.GetSideSpace and GetSpace were swapped
        and are now consistent. GetSideSpace = Around + GetSpace.
      + TForm.WindowState=wsFullscreen was added
      + TCanvas.TextFitInfo was added to calculate how many characters will
        fit into a specified Width. Useful for word-wrapping calculations.
      + TControl.GetColorResolvingParent and
        TControl.GetRGBColorResolvingParent were added, simplifying the work
        to obtain the final color of the control while resolving clDefault
        and the ParentColor.
      + LCLIntf.GetTextExtentExPoint now has a good default implementation
        which works in any platform not providing a specific implementation.
        However, Widgetset specific implementation is better, when available.
      + TTabControl was reorganized. Now it has the correct class hierarchy
        and inherits from TCustomTabControl as it should.
  - New unit in the LCL:
      + lazdialogs.pas: adds non-native versions of various native dialogs,
        for example TLazOpenDialog, TLazSaveDialog, TLazSelectDirectoryDialog.
        It is used by widgetsets which either do not have a native dialog, or
        do not wish to use it because it is limited. These dialogs can also be
        used by user applications directly.
      + lazdeviceapis.pas: offers an interface to more hardware devices such
        as the accelerometer, GPS, etc. See LazDeviceAPIs
      + lazcanvas.pas: provides a TFPImageCanvas descendent implementing
        drawing in a LCL-compatible way, but 100% in Pascal.
      + lazregions.pas. LazRegions is a wholly Pascal implementation of
        regions for canvas clipping, event clipping, finding in which control
        of a region tree one an event should reach, for drawing polygons, etc.
      + customdrawncontrols.pas, customdrawndrawers.pas,
        customdrawn_common.pas, customdrawn_android.pas and
        customdrawn_winxp.pas: are the Lazarus Custom Drawn Controls -controls
        which imitate the standard LCL ones, but with the difference that they
        are non-native and support skinning.
  - New APIs added to the LCL to improve support of accessibility software
    such as screen readers.
* IDE changes:
  - Many improvments.
  - The detailed list of changes can be found here:
    http://wiki.lazarus.freepascal.org/New_IDE_features_since#v1.0_.282012-08-29.29
    http://wiki.lazarus.freepascal.org/Lazarus_1.0_release_notes#IDE_Changes
* Debugger / Editor changes:
  - Added pascal sources and breakpoints to the disassembler
  - Added threads dialog.
* Components changes:
  - TAChart: many fixes and new features
  - CodeTool: support Delphi style generics and new syntax extensions.
  - AggPas: removed to honor free licencing. (Closes: Bug#708695)
[Bart Martens]
* New debian/watch file fixing issues with upstream RC release.
[Abou Al Montacir]
* Avoid changing files in .pc hidden directory, these are used by quilt for
  internal purpose and could lead to surprises during build.
[Paul Gevers]
* Updated get-orig-source target and it compinion script orig-tar.sh so that they
  repack the source file, allowing bug 708695 to be fixed.

Show diffs side-by-side

added added

removed removed

Lines of Context:
666
666
 
667
667
class function NSWindow.defaultDepthLimit: NSWindowDepth;
668
668
begin
669
 
  Result := NSWindowDepth(objc_msgSend(getClass, sel_registerName(PChar(StrNSWindow_defaultDepthLimit)), []));
 
669
  Result := {%H-}NSWindowDepth(objc_msgSend(getClass, sel_registerName(PChar(StrNSWindow_defaultDepthLimit)), []));
670
670
end;
671
671
 
672
672
{.$ifdef  MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_3}
767
767
 
768
768
function NSWindow.isExcludedFromWindowsMenu: LongBool;
769
769
begin
770
 
  Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_isExcludedFromWindowsMenu)), []));
 
770
  Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_isExcludedFromWindowsMenu)), []));
771
771
end;
772
772
 
773
773
procedure NSWindow.setContentView(_aView: lobjc.id {NSView});
802
802
 
803
803
function NSWindow.windowNumber: Integer;
804
804
begin
805
 
  Result := Integer(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_windowNumber)), []));
 
805
  Result := {%H-}Integer(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_windowNumber)), []));
806
806
end;
807
807
 
808
808
function NSWindow.styleMask: LongWord;
809
809
begin
810
 
  Result := LongWord(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_styleMask)), []));
 
810
  Result := {%H-}LongWord(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_styleMask)), []));
811
811
end;
812
812
 
813
813
function NSWindow.fieldEditor_forObject(_createFlag: LongBool; _anObject: lobjc.id): lobjc.id;
927
927
 
928
928
function NSWindow.showsResizeIndicator: LongBool;
929
929
begin
930
 
  Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_showsResizeIndicator)), []));
 
930
  Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_showsResizeIndicator)), []));
931
931
end;
932
932
 
933
933
procedure NSWindow.setResizeIncrements(_increments: NSSize);
1014
1014
 
1015
1015
function NSWindow.isFlushWindowDisabled: LongBool;
1016
1016
begin
1017
 
  Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_isFlushWindowDisabled)), []));
 
1017
  Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_isFlushWindowDisabled)), []));
1018
1018
end;
1019
1019
 
1020
1020
procedure NSWindow.flushWindow;
1039
1039
 
1040
1040
function NSWindow.viewsNeedDisplay: LongBool;
1041
1041
begin
1042
 
  Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_viewsNeedDisplay)), []));
 
1042
  Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_viewsNeedDisplay)), []));
1043
1043
end;
1044
1044
 
1045
1045
procedure NSWindow.displayIfNeeded;
1064
1064
 
1065
1065
function NSWindow.isAutodisplay: LongBool;
1066
1066
begin
1067
 
  Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_isAutodisplay)), []));
 
1067
  Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_isAutodisplay)), []));
1068
1068
end;
1069
1069
 
1070
1070
{.$ifdef  MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_4}
1071
1071
function NSWindow.preservesContentDuringLiveResize: LongBool;
1072
1072
begin
1073
 
  Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_preservesContentDuringLiveResize)), []));
 
1073
  Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_preservesContentDuringLiveResize)), []));
1074
1074
end;
1075
1075
 
1076
1076
procedure NSWindow.setPreservesContentDuringLiveResize(_flag: LongBool);
1106
1106
 
1107
1107
function NSWindow.resizeFlags: Integer;
1108
1108
begin
1109
 
  Result := Integer(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_resizeFlags)), []));
 
1109
  Result := {%H-}Integer(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_resizeFlags)), []));
1110
1110
end;
1111
1111
 
1112
1112
procedure NSWindow.keyDown(_theEvent: lobjc.id {NSEvent});
1136
1136
 
1137
1137
function NSWindow.isReleasedWhenClosed: LongBool;
1138
1138
begin
1139
 
  Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_isReleasedWhenClosed)), []));
 
1139
  Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_isReleasedWhenClosed)), []));
1140
1140
end;
1141
1141
 
1142
1142
procedure NSWindow.miniaturize(_sender: lobjc.id);
1161
1161
 
1162
1162
function NSWindow.isZoomed: LongBool;
1163
1163
begin
1164
 
  Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_isZoomed)), []));
 
1164
  Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_isZoomed)), []));
1165
1165
end;
1166
1166
 
1167
1167
procedure NSWindow.zoom(_sender: lobjc.id);
1176
1176
 
1177
1177
function NSWindow.isMiniaturized: LongBool;
1178
1178
begin
1179
 
  Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_isMiniaturized)), []));
 
1179
  Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_isMiniaturized)), []));
1180
1180
end;
1181
1181
 
1182
1182
function NSWindow.tryToPerform_with(_anAction: SEL; _anObject: lobjc.id): LongBool;
1227
1227
 
1228
1228
function NSWindow.isMovableByWindowBackground: LongBool;
1229
1229
begin
1230
 
  Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_isMovableByWindowBackground)), []));
 
1230
  Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_isMovableByWindowBackground)), []));
1231
1231
end;
1232
1232
 
1233
1233
{.$endif}
1243
1243
 
1244
1244
function NSWindow.hidesOnDeactivate: LongBool;
1245
1245
begin
1246
 
  Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_hidesOnDeactivate)), []));
 
1246
  Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_hidesOnDeactivate)), []));
1247
1247
end;
1248
1248
 
1249
1249
procedure NSWindow.setCanHide(_flag: LongBool);
1258
1258
 
1259
1259
function NSWindow.canHide: LongBool;
1260
1260
begin
1261
 
  Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_canHide)), []));
 
1261
  Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_canHide)), []));
1262
1262
end;
1263
1263
 
1264
1264
procedure NSWindow.center;
1363
1363
 
1364
1364
function NSWindow.isDocumentEdited: LongBool;
1365
1365
begin
1366
 
  Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_isDocumentEdited)), []));
 
1366
  Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_isDocumentEdited)), []));
1367
1367
end;
1368
1368
 
1369
1369
function NSWindow.isVisible: LongBool;
1370
1370
begin
1371
 
  Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_isVisible)), []));
 
1371
  Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_isVisible)), []));
1372
1372
end;
1373
1373
 
1374
1374
function NSWindow.isKeyWindow: LongBool;
1375
1375
begin
1376
 
  Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_isKeyWindow)), []));
 
1376
  Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_isKeyWindow)), []));
1377
1377
end;
1378
1378
 
1379
1379
function NSWindow.isMainWindow: LongBool;
1380
1380
begin
1381
 
  Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_isMainWindow)), []));
 
1381
  Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_isMainWindow)), []));
1382
1382
end;
1383
1383
 
1384
1384
function NSWindow.canBecomeKeyWindow: LongBool;
1385
1385
begin
1386
 
  Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_canBecomeKeyWindow)), []));
 
1386
  Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_canBecomeKeyWindow)), []));
1387
1387
end;
1388
1388
 
1389
1389
function NSWindow.canBecomeMainWindow: LongBool;
1390
1390
begin
1391
 
  Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_canBecomeMainWindow)), []));
 
1391
  Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_canBecomeMainWindow)), []));
1392
1392
end;
1393
1393
 
1394
1394
procedure NSWindow.makeKeyWindow;
1423
1423
 
1424
1424
function NSWindow.worksWhenModal: LongBool;
1425
1425
begin
1426
 
  Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_worksWhenModal)), []));
 
1426
  Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_worksWhenModal)), []));
1427
1427
end;
1428
1428
 
1429
1429
function NSWindow.convertBaseToScreen(_aPoint: NSPoint): NSPoint;
1478
1478
 
1479
1479
function NSWindow.gState: Integer;
1480
1480
begin
1481
 
  Result := Integer(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_gState)), []));
 
1481
  Result := {%H-}Integer(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_gState)), []));
1482
1482
end;
1483
1483
 
1484
1484
procedure NSWindow.setOneShot(_flag: LongBool);
1493
1493
 
1494
1494
function NSWindow.isOneShot: LongBool;
1495
1495
begin
1496
 
  Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_isOneShot)), []));
 
1496
  Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_isOneShot)), []));
1497
1497
end;
1498
1498
 
1499
1499
function NSWindow.dataWithEPSInsideRect(_rect: NSRect): CFDataRef;
1543
1543
 
1544
1544
function NSWindow.areCursorRectsEnabled: LongBool;
1545
1545
begin
1546
 
  Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_areCursorRectsEnabled)), []));
 
1546
  Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_areCursorRectsEnabled)), []));
1547
1547
end;
1548
1548
 
1549
1549
procedure NSWindow.invalidateCursorRectsForView(_aView: lobjc.id {NSView});
1574
1574
 
1575
1575
function NSWindow.allowsToolTipsWhenApplicationIsInactive: LongBool;
1576
1576
begin
1577
 
  Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_allowsToolTipsWhenApplicationIsInactive)), []));
 
1577
  Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_allowsToolTipsWhenApplicationIsInactive)), []));
1578
1578
end;
1579
1579
 
1580
1580
{.$endif}
1605
1605
 
1606
1606
function NSWindow.level: Integer;
1607
1607
begin
1608
 
  Result := Integer(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_level)), []));
 
1608
  Result := {%H-}Integer(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_level)), []));
1609
1609
end;
1610
1610
 
1611
1611
procedure NSWindow.setDepthLimit(_limit: NSWindowDepth);
1620
1620
 
1621
1621
function NSWindow.depthLimit: NSWindowDepth;
1622
1622
begin
1623
 
  Result := NSWindowDepth(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_depthLimit)), []));
 
1623
  Result := {%H-}NSWindowDepth(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_depthLimit)), []));
1624
1624
end;
1625
1625
 
1626
1626
procedure NSWindow.setDynamicDepthLimit(_flag: LongBool);
1635
1635
 
1636
1636
function NSWindow.hasDynamicDepthLimit: LongBool;
1637
1637
begin
1638
 
  Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_hasDynamicDepthLimit)), []));
 
1638
  Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_hasDynamicDepthLimit)), []));
1639
1639
end;
1640
1640
 
1641
1641
function NSWindow.screen: lobjc.id;
1650
1650
 
1651
1651
function NSWindow.canStoreColor: LongBool;
1652
1652
begin
1653
 
  Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_canStoreColor)), []));
 
1653
  Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_canStoreColor)), []));
1654
1654
end;
1655
1655
 
1656
1656
procedure NSWindow.setHasShadow(_hasShadow: LongBool);
1665
1665
 
1666
1666
function NSWindow.hasShadow: LongBool;
1667
1667
begin
1668
 
  Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_hasShadow)), []));
 
1668
  Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_hasShadow)), []));
1669
1669
end;
1670
1670
 
1671
1671
{.$ifdef  MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_2}
1702
1702
 
1703
1703
function NSWindow.isOpaque: LongBool;
1704
1704
begin
1705
 
  Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_isOpaque)), []));
 
1705
  Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_isOpaque)), []));
1706
1706
end;
1707
1707
 
1708
1708
{.$ifdef  MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_4}
1709
1709
function NSWindow.displaysWhenScreenProfileChanges: LongBool;
1710
1710
begin
1711
 
  Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_displaysWhenScreenProfileChanges)), []));
 
1711
  Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_displaysWhenScreenProfileChanges)), []));
1712
1712
end;
1713
1713
 
1714
1714
procedure NSWindow.setDisplaysWhenScreenProfileChanges(_flag: LongBool);
1936
1936
 
1937
1937
function NSWindow.acceptsMouseMovedEvents: LongBool;
1938
1938
begin
1939
 
  Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_acceptsMouseMovedEvents)), []));
 
1939
  Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_acceptsMouseMovedEvents)), []));
1940
1940
end;
1941
1941
 
1942
1942
{.$ifdef  MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_2}
1952
1952
 
1953
1953
function NSWindow.ignoresMouseEvents: LongBool;
1954
1954
begin
1955
 
  Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_ignoresMouseEvents)), []));
 
1955
  Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_ignoresMouseEvents)), []));
1956
1956
end;
1957
1957
 
1958
1958
{.$endif}
2003
2003
 
2004
2004
function NSWindow.isSheet: LongBool;
2005
2005
begin
2006
 
  Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_isSheet)), []));
 
2006
  Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_isSheet)), []));
2007
2007
end;
2008
2008
 
2009
2009
function NSWindow.attachedSheet: lobjc.id;
2185
2185
 
2186
2186
function NSWindow.autorecalculatesKeyViewLoop: LongBool;
2187
2187
begin
2188
 
  Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_autorecalculatesKeyViewLoop)), []));
 
2188
  Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_autorecalculatesKeyViewLoop)), []));
2189
2189
end;
2190
2190
 
2191
2191
procedure NSWindow.recalculateKeyViewLoop;
2242
2242
 
2243
2243
function NSWindow.showsToolbarButton: LongBool;
2244
2244
begin
2245
 
  Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_showsToolbarButton)), []));
 
2245
  Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSWindow_showsToolbarButton)), []));
2246
2246
end;
2247
2247
 
2248
2248
{.$endif}