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

cocoa: start implementation of DestroyHandle

Browse Source 
git-svn-id: trunk@36442 -
This commit is contained in:
paul 2012-03-30 07:59:58 +00:00
parent a51b6f1e56
commit 5b803eebe0
1 changed files with 17 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
lcl/interfaces/cocoa/cocoawscommon.pas
View File

@ -26,6 +26,7 @@ type
FPropStorage: TStringList;
FContext: TCocoaContext;
FHasCaret: Boolean;
FTarget: TWinControl;
function GetHasCaret: Boolean;
procedure SetHasCaret(AValue: Boolean);
protected
@ -34,7 +35,6 @@ type
procedure OffsetMousePos(var Point: NSPoint);
public
Owner: NSObject;
Target: TWinControl;
class constructor Create;
constructor Create(AOwner: NSObject; ATarget: TWinControl); virtual;
destructor Destroy; override;
@ -55,6 +55,7 @@ type
function ResetCursorRects: Boolean; virtual;
property HasCaret: Boolean read GetHasCaret write SetHasCaret;
property Target: TWinControl read FTarget;
end;
TLCLCommonCallBackClass = class of TLCLCommonCallBack;
@ -65,6 +66,7 @@ type
published
class function CreateHandle(const AWinControl: TWinControl;
const AParams: TCreateParams): TLCLIntfHandle; override;
class procedure DestroyHandle(const AWinControl: TWinControl); override;
class procedure SetText(const AWinControl: TWinControl; const AText: String); override;
class function GetText(const AWinControl: TWinControl; var AText: String): Boolean; override;
class function GetTextLen(const AWinControl: TWinControl; var ALength: Integer): Boolean; override;
@ -201,7 +203,7 @@ constructor TLCLCommonCallback.Create(AOwner: NSObject; ATarget: TWinControl);
begin
inherited Create;
Owner := AOwner;
Target := ATarget;
FTarget := ATarget;
FContext := nil;
FHasCaret := False;
FPropStorage := TStringList.Create;
@ -213,6 +215,7 @@ destructor TLCLCommonCallback.Destroy;
begin
FContext.Free;
FPropStorage.Free;
FTarget := nil;
inherited Destroy;
end;
@ -857,6 +860,18 @@ begin
Result := TCocoaWSCustomControl.CreateHandle(AWinControl, AParams);
end;
class procedure TCocoaWSWinControl.DestroyHandle(const AWinControl: TWinControl);
var
obj: NSObject;
begin
if not AWinControl.HandleAllocated then
Exit;
obj := NSObject(AWinControl.Handle);
if obj.isKindOfClass_(NSView) then
NSView(obj).removeFromSuperview;
obj.release;
end;
class procedure TCocoaWSWinControl.SetText(const AWinControl: TWinControl; const AText: String);
var
obj: NSObject;