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

« back to all changes in this revision

Viewing changes to lcl/interfaces/carbon/pascocoa/appkit/NSView.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:
518
518
 
519
519
function NSView.isHidden: LongBool;
520
520
begin
521
 
  Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSView_isHidden)), []));
 
521
  Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSView_isHidden)), []));
522
522
end;
523
523
 
524
524
function NSView.isHiddenOrHasHiddenAncestor: LongBool;
525
525
begin
526
 
  Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSView_isHiddenOrHasHiddenAncestor)), []));
 
526
  Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSView_isHiddenOrHasHiddenAncestor)), []));
527
527
end;
528
528
 
529
529
procedure NSView.getRectsBeingDrawn_count(_rects: NSRect; _count: Integer);
548
548
 
549
549
function NSView.wantsDefaultClipping: LongBool;
550
550
begin
551
 
  Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSView_wantsDefaultClipping)), []));
 
551
  Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSView_wantsDefaultClipping)), []));
552
552
end;
553
553
 
554
554
{.$endif}
664
664
 
665
665
function NSView.postsFrameChangedNotifications: LongBool;
666
666
begin
667
 
  Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSView_postsFrameChangedNotifications)), []));
 
667
  Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSView_postsFrameChangedNotifications)), []));
668
668
end;
669
669
 
670
670
procedure NSView.resizeSubviewsWithOldSize(_oldSize: NSSize);
699
699
 
700
700
function NSView.autoresizesSubviews: LongBool;
701
701
begin
702
 
  Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSView_autoresizesSubviews)), []));
 
702
  Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSView_autoresizesSubviews)), []));
703
703
end;
704
704
 
705
705
procedure NSView.setAutoresizingMask(_mask: LongWord);
714
714
 
715
715
function NSView.autoresizingMask: LongWord;
716
716
begin
717
 
  Result := LongWord(objc_msgSend(Handle, sel_registerName(PChar(StrNSView_autoresizingMask)), []));
 
717
  Result := {%H-}LongWord(objc_msgSend(Handle, sel_registerName(PChar(StrNSView_autoresizingMask)), []));
718
718
end;
719
719
 
720
720
procedure NSView.setFrameOrigin(_newOrigin: NSPoint);
849
849
 
850
850
function NSView.isFlipped: LongBool;
851
851
begin
852
 
  Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSView_isFlipped)), []));
 
852
  Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSView_isFlipped)), []));
853
853
end;
854
854
 
855
855
function NSView.isRotatedFromBase: LongBool;
856
856
begin
857
 
  Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSView_isRotatedFromBase)), []));
 
857
  Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSView_isRotatedFromBase)), []));
858
858
end;
859
859
 
860
860
function NSView.isRotatedOrScaledFromBase: LongBool;
861
861
begin
862
 
  Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSView_isRotatedOrScaledFromBase)), []));
 
862
  Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSView_isRotatedOrScaledFromBase)), []));
863
863
end;
864
864
 
865
865
function NSView.isOpaque: LongBool;
866
866
begin
867
 
  Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSView_isOpaque)), []));
 
867
  Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSView_isOpaque)), []));
868
868
end;
869
869
 
870
870
function NSView.convertPoint_fromView(_aPoint: NSPoint; _aView: lobjc.id {NSView}): NSPoint;
939
939
 
940
940
function NSView.canDraw: LongBool;
941
941
begin
942
 
  Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSView_canDraw)), []));
 
942
  Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSView_canDraw)), []));
943
943
end;
944
944
 
945
945
procedure NSView.setNeedsDisplay(_flag: LongBool);
964
964
 
965
965
function NSView.needsDisplay: LongBool;
966
966
begin
967
 
  Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSView_needsDisplay)), []));
 
967
  Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSView_needsDisplay)), []));
968
968
end;
969
969
 
970
970
procedure NSView.lockFocus;
979
979
 
980
980
function NSView.lockFocusIfCanDraw: LongBool;
981
981
begin
982
 
  Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSView_lockFocusIfCanDraw)), []));
 
982
  Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSView_lockFocusIfCanDraw)), []));
983
983
end;
984
984
 
985
985
{.$ifdef  MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_4}
1109
1109
{.$endif}
1110
1110
function NSView.gState: Integer;
1111
1111
begin
1112
 
  Result := Integer(objc_msgSend(Handle, sel_registerName(PChar(StrNSView_gState)), []));
 
1112
  Result := {%H-}Integer(objc_msgSend(Handle, sel_registerName(PChar(StrNSView_gState)), []));
1113
1113
end;
1114
1114
 
1115
1115
procedure NSView.allocateGState;
1214
1214
 
1215
1215
function NSView.tag: Integer;
1216
1216
begin
1217
 
  Result := Integer(objc_msgSend(Handle, sel_registerName(PChar(StrNSView_tag)), []));
 
1217
  Result := {%H-}Integer(objc_msgSend(Handle, sel_registerName(PChar(StrNSView_tag)), []));
1218
1218
end;
1219
1219
 
1220
1220
function NSView.performKeyEquivalent(_theEvent: lobjc.id {NSEvent}): LongBool;
1249
1249
 
1250
1250
function NSView.needsPanelToBecomeKey: LongBool;
1251
1251
begin
1252
 
  Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSView_needsPanelToBecomeKey)), []));
 
1252
  Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSView_needsPanelToBecomeKey)), []));
1253
1253
end;
1254
1254
 
1255
1255
{.$ifdef  MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_2}
1256
1256
function NSView.mouseDownCanMoveWindow: LongBool;
1257
1257
begin
1258
 
  Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSView_mouseDownCanMoveWindow)), []));
 
1258
  Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSView_mouseDownCanMoveWindow)), []));
1259
1259
end;
1260
1260
 
1261
1261
{.$endif}
1311
1311
 
1312
1312
function NSView.shouldDrawColor: LongBool;
1313
1313
begin
1314
 
  Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSView_shouldDrawColor)), []));
 
1314
  Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSView_shouldDrawColor)), []));
1315
1315
end;
1316
1316
 
1317
1317
procedure NSView.setPostsBoundsChangedNotifications(_flag: LongBool);
1326
1326
 
1327
1327
function NSView.postsBoundsChangedNotifications: LongBool;
1328
1328
begin
1329
 
  Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSView_postsBoundsChangedNotifications)), []));
 
1329
  Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSView_postsBoundsChangedNotifications)), []));
1330
1330
end;
1331
1331
 
1332
1332
function NSView.enclosingScrollView: lobjc.id;
1401
1401
 
1402
1402
function NSView.inLiveResize: LongBool;
1403
1403
begin
1404
 
  Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSView_inLiveResize)), []));
 
1404
  Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSView_inLiveResize)), []));
1405
1405
end;
1406
1406
 
1407
1407
{.$ifdef  MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_4}
1408
1408
function NSView.preservesContentDuringLiveResize: LongBool;
1409
1409
begin
1410
 
  Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSView_preservesContentDuringLiveResize)), []));
 
1410
  Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSView_preservesContentDuringLiveResize)), []));
1411
1411
end;
1412
1412
 
1413
1413
function NSView.rectPreservedDuringLiveResize: NSRect;
1464
1464
{.$ifdef  MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_3}
1465
1465
function NSView.canBecomeKeyView: LongBool;
1466
1466
begin
1467
 
  Result := LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSView_canBecomeKeyView)), []));
 
1467
  Result := {%H-}LongBool(objc_msgSend(Handle, sel_registerName(PChar(StrNSView_canBecomeKeyView)), []));
1468
1468
end;
1469
1469
 
1470
1470
{.$endif}