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

cocoa: preventing HintWindow from acquiring focus on show

Browse Source 
git-svn-id: trunk@58649 -
This commit is contained in:
dmitry 2018-07-29 20:56:44 +00:00
parent 123ec7ffae
commit 474bd626f3
2 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/interfaces/cocoa/cocoawindows.pas
View File

@ -183,6 +183,7 @@ type
procedure didResignKeyNotification(sender: NSNotification); message 'didResignKeyNotification:';
public
isembedded: Boolean; // true - if the content is inside of another control, false - if the content is in its own window;
preventKeyOnShow: Boolean;
ownwin: NSWindow;
fswin: NSWindow; // window that was used as a content prior to switching to old-school fullscreen
popup_parent: HWND; // if not 0, indicates that we should set the popup parent
@ -389,7 +390,12 @@ begin
window.orderOut(nil)
else
if not aisHidden and not window.isVisible then
window.makeKeyAndOrderFront(nil);
begin
if preventKeyOnShow then // used for Hint-windows, so they would not steal the focus from the current window
window.orderFrontRegardless
else
window.makeKeyAndOrderFront(nil);
end;
end;
end;

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

@ -239,6 +239,7 @@ begin
cb := TLCLWindowCallback.Create(cnt, AWinControl);
cb.window := win;
cnt.callback := cb;
cnt.preventKeyOnShow := true;
TCocoaPanel(win).callback := cb;
win.setContentView(cnt);