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

LCL: treeview: render hints right to the tree view if the widget set doesn't support transparent windows

Browse Source 
git-svn-id: trunk@53194 -
This commit is contained in:
ondrej 2016-10-21 19:57:13 +00:00
parent 677e9d99f2
commit 1185f73701
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lcl/include/treeview.inc
View File

@ -4246,6 +4246,7 @@ var
R, TextRect, IntRect: TRect;
SText: string;
MaxHintWidth: Integer;
TransparentHints: Boolean;
begin
if FHintWnd=nil then
begin
@ -4277,11 +4278,17 @@ begin
SText:=Node.Text;
R:=FHintWnd.CalcHintRect(MaxHintWidth, SText, nil);
P:=Point(TextRect.Left-1, TextRect.Top-3);
TransparentHints := WidgetSet.GetLCLCapability(lcTransparentWindow) = LCL_CAPABILITY_YES;
if TransparentHints then
P:=Point(TextRect.Left-1, TextRect.Top-3)
else
P:=Point(ClientWidth, TextRect.Top-3);
P:=ClientToScreen(P);
OffsetRect(R, P.X, P.Y);
if not FHintWnd.Visible then
if TransparentHints // use default hint font for non-transparent hint windows
and not FHintWnd.Visible then
begin
FHintWnd.Font.Assign(Self.Font);
FHintWnd.Font.Color := Screen.HintFont.Color;