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

Cocoa: Making mousemove events (needed for hint) available for parented Forms

Browse Source 
git-svn-id: trunk@43825 -
This commit is contained in:
freq 2014-01-27 13:40:33 +00:00
parent 943ad98d89
commit ad229fa25c
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/interfaces/cocoa/cocoawsforms.pp
View File

@ -366,7 +366,7 @@ var
cnt: TCocoaWindowContent; cnt: TCocoaWindowContent;
ns: NSString; ns: NSString;
R: NSRect; R: NSRect;
begin begin
//todo: create TCocoaWindow or TCocoaPanel depending on the border style //todo: create TCocoaWindow or TCocoaPanel depending on the border style
// if parent is specified neither Window nor Panel needs to be created // if parent is specified neither Window nor Panel needs to be created
// the only thing that needs to be created is Content // the only thing that needs to be created is Content
@ -415,7 +415,10 @@ begin
begin begin
cnt.callback := TLCLCustomControlCallback.Create(cnt, AWinControl); cnt.callback := TLCLCustomControlCallback.Create(cnt, AWinControl);
if AParams.WndParent <> 0 then if AParams.WndParent <> 0 then
begin
NSView(APArams.WndParent).addSubView(cnt); NSView(APArams.WndParent).addSubView(cnt);
cnt.window.setAcceptsMouseMovedEvents(True);
end;
end; end;
Result := TLCLIntfHandle(cnt); Result := TLCLIntfHandle(cnt);