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

LCL: Implement THintWindow.IsMsgHint. Issue #23076.

Browse Source 
git-svn-id: trunk@46695 -
This commit is contained in:
juha 2014-10-28 16:58:57 +00:00
parent 907903d999
commit d3f974713b
2 changed files with 15 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lcl/forms.pp
View File

@ -869,6 +869,7 @@ type
AData: pointer): TRect; virtual;
function OffsetHintRect(NewPos: TPoint; dy: Integer = 15): Boolean;
procedure InitializeWnd; override;
function IsHintMsg(Msg: TMsg): Boolean; virtual;
procedure ReleaseHandle;
procedure Paint; override;
procedure SetBounds(ALeft, ATop, AWidth, AHeight: integer); override;

14
lcl/include/hintwindow.inc
View File

@ -315,6 +315,20 @@ begin
UpdateRegion;
end;
function THintWindow.IsHintMsg(Msg: TMsg): Boolean;
begin
case Msg.message of
LM_KEYFIRST..LM_KEYLAST,
CM_ACTIVATE, CM_DEACTIVATE,
CM_APPSYSCOMMAND,
LM_COMMAND,
LM_LBUTTONDOWN..LM_MOUSELAST, LM_NCMOUSEMOVE :
Result := True;
else
Result := False;
end;
end;
procedure THintWindow.ReleaseHandle;
begin
if HandleAllocated then