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

fixed double hints in OI

Browse Source 
git-svn-id: trunk@5123 -
This commit is contained in:
mattias 2004-01-29 22:58:30 +00:00
parent 977a622fe7
commit ac0beeca32
1 changed files with 6 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
ideintf/objectinspector.pp
View File

@ -1725,30 +1725,22 @@ var
Index: integer; Index: integer;
PointedRow:TOIpropertyGridRow; PointedRow:TOIpropertyGridRow;
TypeKind : TTypeKind; TypeKind : TTypeKind;
Window :TWinControl; Window: TWinControl;
Window2 : TWInControl;
begin begin
FHintTimer.Enabled := False; FHintTimer.Enabled := False;
if not ShowHint then exit; if not ShowHint then exit;
Position := Mouse.CursorPos; Position := Mouse.CursorPos;
Window := FindLCLWindow(Position);
if not(Assigned(Window)) then Exit;
// get the parent until parent is nil
While Window.Parent <> nil do
Window := Window.Parent;
Window2 := self;
while Window2.Parent <> nil do
Window2 := Window2.Parent;
if (window <> Window2) then Exit;
Position := ScreenToClient(Position); Position := ScreenToClient(Position);
if ((Position.X <=0) or (Position.X >= Width) or (Position.Y <= 0) if ((Position.X <=0) or (Position.X >= Width) or (Position.Y <= 0)
or (Position.Y >= Height)) then or (Position.Y >= Height)) then
Exit; Exit;
Window := FindLCLWindow(Position);
if not(Assigned(Window)) then Exit;
If (Window<>Self) and (not IsParentOf(Window)) then exit;
AHint := ''; AHint := '';
Index:=MouseToIndex(Position.Y,false); Index:=MouseToIndex(Position.Y,false);
if (Index>=0) and (Index<FRows.Count) then if (Index>=0) and (Index<FRows.Count) then