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

ideintf: don't try to show empty hints

Browse Source 
git-svn-id: trunk@22190 -
This commit is contained in:
paul 2009-10-15 08:57:41 +00:00
parent e2e83d6c1e
commit b8cedf56c9
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
ideintf/objectinspector.pp
View File

@ -3031,7 +3031,8 @@ begin
HintType := GetHintTypeAt(Index,Position.X);
if (HintType = pehName) and Assigned(OnPropertyHint) then
begin
if OnPropertyHint(Self, PointedRow, Position, FHintWindow, Rect, AHint) then
if OnPropertyHint(Self, PointedRow, Position, FHintWindow, Rect, AHint) and
(AHint <> '') then
begin
FHintIndex := Index;
FShowingLongHint := True;