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

fix for hint window on show focusing

Browse Source 
git-svn-id: trunk@18758 -
This commit is contained in:
dmitry 2009-02-19 07:28:45 +00:00
parent e8e122df26
commit e07d1b374b
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lcl/interfaces/carbon/carbonprivate.pp
View File

@ -217,6 +217,8 @@ type
TCarbonHintWindow = class(TCarbonWindow) TCarbonHintWindow = class(TCarbonWindow)
protected protected
procedure CreateWindow(const AParams: TCreateParams); override; procedure CreateWindow(const AParams: TCreateParams); override;
public
procedure ShowHide(AVisible: Boolean); override;
end; end;
{ TCarbonDesignWindow } { TCarbonDesignWindow }
@ -395,6 +397,14 @@ begin
SetColor(LCLObject.Color); SetColor(LCLObject.Color);
end; end;
procedure TCarbonHintWindow.ShowHide(AVisible: Boolean);
begin
if Assigned(fWindowRef) then
MacOSAll.ShowHide(fWindowRef, AVisible or (csDesigning in LCLobject.ComponentState))
else
inherited ShowHide(AVisible);
end;
{ TCarbonDesignWindow } { TCarbonDesignWindow }
{------------------------------------------------------------------------------ {------------------------------------------------------------------------------