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

IDE: fixed showing source editor hints while docked

Browse Source 
git-svn-id: trunk@26810 -
This commit is contained in:
mattias 2010-07-24 13:32:52 +00:00
parent 747103186b
commit 4fcf37a14d
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ide/sourceeditor.pp
View File

@ -7305,12 +7305,12 @@ var
MousePos: TPoint;
AControl: TControl;
begin
//DebugLn(['TSourceNotebook.HintTimer ']);
FMouseHintTimer.Enabled := False;
FMouseHintTimer.AutoEnabled := False;
if not IsVisible then exit;
MousePos := Mouse.CursorPos;
AControl:=FindLCLControl(MousePos);
if (AControl=nil) or (GetParentForm(AControl)<>Self) then exit;
if (AControl=nil) or (not ContainsControl(AControl)) then exit;
if AControl is TSynEdit then
ShowSynEditHint(MousePos);
end;