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

Carbon intf: fixed bugs #0009713: Carbon Form.Show does not bring already displayed window to front and #0009714: Carbon menuitem remains active after selecting Form.show

Browse Source 
git-svn-id: trunk@12107 -
This commit is contained in:
tombo 2007-09-21 09:12:19 +00:00
parent 69c6ec9a96
commit 82944ea49d
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/carbon/carbonprivatewindow.inc
View File

@ -1306,7 +1306,10 @@ begin
//DebugLn('TCarbonWindow.ShowHide ' + DbgSName(LCLobject),' ', DbgS(AVisible));
if AVisible or (csDesigning in LCLobject.ComponentState) then
FPCMacOSAll.ShowWindow(WindowRef(Widget))
begin
SelectWindow(WindowRef(Widget)); // activate and move window to front
FPCMacOSAll.ShowWindow(WindowRef(Widget));
end
else
FPCMacOSAll.HideWindow(WindowRef(Widget));
end;