paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-19 12:29:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

carbon intf: reduced notes

Browse Source 
git-svn-id: trunk@27771 -
This commit is contained in:
mattias 2010-10-20 08:18:32 +00:00
parent d5cb0e2fbe
commit b07592dfec
3 changed files with 5 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -488,8 +488,6 @@ end;
Note: must be used in pair with RestoreDC!
------------------------------------------------------------------------------}
function TCarbonDeviceContext.SaveDC: Integer;
var
current : HIShapeRef;
begin
if isClipped then
CGContextRestoreGState(CGContext); // clip rect is on top of the state stack!

1
lcl/interfaces/carbon/carbontrayicon.inc
View File

@ -426,6 +426,7 @@ var
//LCLMenu: TPopUpMenu;
begin
AMenu := NSMenu.CreateWithHandle(sender);
if AMenu=nil then ;
// LCLMenu := TPopUpMenu(PtrInt(AMenu.menuRepresentation()));
// if (LCLMenu <> nil) and Assigned(LCLMenu.OnPopUp) then LCLMenu.OnPopUp(LCLMenu);
end;

8
lcl/interfaces/carbon/pascocoa/foundation/NSValue.inc
View File

@ -264,22 +264,22 @@ end;
function NSNumber.charValue: char;
begin
Result := char(objc_msgSend(Handle, sel_registerName(PChar(StrNSNumber_charValue)), []));
Result := {%H-}char(objc_msgSend(Handle, sel_registerName(PChar(StrNSNumber_charValue)), []));
end;
function NSNumber.unsignedCharValue: byte;
begin
Result := byte(objc_msgSend(Handle, sel_registerName(PChar(StrNSNumber_unsignedCharValue)), []));
Result := {%H-}byte(objc_msgSend(Handle, sel_registerName(PChar(StrNSNumber_unsignedCharValue)), []));
end;
function NSNumber.shortValue: SmallInt;
begin
Result := SmallInt(objc_msgSend(Handle, sel_registerName(PChar(StrNSNumber_shortValue)), []));
Result := {%H-}SmallInt(objc_msgSend(Handle, sel_registerName(PChar(StrNSNumber_shortValue)), []));
end;
function NSNumber.unsignedShortValue: Word;
begin
Result := Word(objc_msgSend(Handle, sel_registerName(PChar(StrNSNumber_unsignedShortValue)), []));
Result := {%H-}Word(objc_msgSend(Handle, sel_registerName(PChar(StrNSNumber_unsignedShortValue)), []));
end;
function NSNumber.intValue: Integer;