paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-29 15:49:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

cocoa: cleanup

Browse Source 
git-svn-id: trunk@38931 -
This commit is contained in:
paul 2012-10-01 02:29:26 +00:00
parent 82883bdef1
commit 5b87a81b7e
1 changed files with 0 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
lcl/interfaces/cocoa/cocoautils.pas
View File

@ -46,8 +46,6 @@ function NSStringUtf8(const s: String): NSString;
function NSStringToString(ns: NSString): String;
function GetNSObjectView(obj: NSObject): NSView;
procedure AddViewToNSObject(ctrl: NSView; obj: NSObject);
procedure AddViewToNSObject(ctrl: NSView; obj: NSObject; X,Y: integer);
procedure SetNSText(text: NSText; const s: String); inline;
function GetNSText(text: NSText): string; inline;
@ -194,21 +192,6 @@ begin
else if obj.isKindOfClass_(NSWindow) then Result:=NSWindow(obj).contentView;
end;
procedure AddViewToNSObject(ctrl: NSView; obj: NSObject);
var
view: NSView;
begin
view := GetNSObjectView(obj);
if not Assigned(view) then Exit;
view.addSubView(ctrl);
end;
procedure AddViewToNSObject(ctrl: NSView; obj: NSObject; X,Y: integer);
begin
AddViewToNSObject(ctrl, obj);
//SetViewFramePos(ctrl, x,y);
end;
function GetNSPoint(x, y: single): NSPoint;
begin
Result.x := x;