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

MG: fixed gdkwindow checks

Browse Source 
git-svn-id: trunk@1338 -
This commit is contained in:
lazarus 2002-02-09 01:48:17 +00:00
parent e243cd7baf
commit e80f25f77d
1 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lcl/include/application.inc
View File

@ -49,6 +49,14 @@ begin
and (GetKeyState(VK_LBUTTON)=0)
and (GetKeyState(VK_MBUTTON)=0)
and (GetKeyState(VK_RBUTTON)=0);
if Result.ControlHasHint then begin
// if there is a modal form, then don't show hints for other forms
if (Screen.FFocusedForm<>nil)
and (fsModal in Screen.FFocusedForm.FormState)
and (GetParentForm(Result.Control)<>Screen.FFocusedForm)
then
Result.ControlHasHint:=false;
end;
end else begin
Result.MousePos:=Point(0,0);
Result.Control:=nil;
@ -817,6 +825,9 @@ end;
{ =============================================================================
$Log$
Revision 1.35 2002/11/09 18:13:33 lazarus
MG: fixed gdkwindow checks
Revision 1.34 2002/11/09 15:02:06 lazarus
MG: fixed LM_LVChangedItem, OnShowHint, small bugs