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

LCL: treeview: fix tooltips. Patch by AlexeyT. Issue #32400

Browse Source 
git-svn-id: trunk@55868 -
This commit is contained in:
ondrej 2017-09-15 18:36:14 +00:00
parent 286a48d42a
commit 55f15c6a4c
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/include/treeview.inc
View File

@ -4355,6 +4355,8 @@ var
MaxHintWidth: Integer;
TransparentHints: Boolean;
begin
if not (tvoToolTips in FOptions) then exit;
if FHintWnd=nil then
begin
FHintWnd:=THintWindow.Create(Self);
@ -5571,8 +5573,7 @@ begin
inherited MouseMove(Shift, x, y);
if (tvoAutoInsertMark in FOptions) then
UpdateInsertMark(X,Y);
if (tvoToolTips in FOptions) then
UpdateTooltip(X, Y);
UpdateTooltip(X, Y);
end;
procedure TCustomTreeView.MouseUp(Button: TMouseButton; Shift: TShiftState;