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

LCL: treeview: hide hint window when showing=false.

Browse Source 
git-svn-id: trunk@53309 -
This commit is contained in:
ondrej 2016-11-08 10:57:25 +00:00
parent 43db30003e
commit 0fdd65225d
2 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lcl/comctrls.pp
View File

@ -3441,6 +3441,7 @@ type
// it off might make things faster
property AccessibilityOn: Boolean read FAccessibilityOn write FAccessibilityOn default True;
protected
procedure CMShowingChanged(var Message: TLMessage); message CM_SHOWINGCHANGED;
property AutoExpand: Boolean read GetAutoExpand write SetAutoExpand default False;
property BorderStyle default bsSingle;
property HideSelection: Boolean

7
lcl/include/treeview.inc
View File

@ -5858,6 +5858,13 @@ begin
if not KeepPrimary then Selected := nil;
end;
procedure TCustomTreeView.CMShowingChanged(var Message: TLMessage);
begin
inherited CMShowingChanged(Message);
if not Showing and (FHintWnd<>nil) and FHintWnd.Visible then
FHintWnd.Hide;
end;
function TCustomTreeView.IsCustomDrawn(Target: TCustomDrawTarget;
Stage: TCustomDrawStage): Boolean;
begin