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

LCL: Place a non-transparent TreeView hint further left. Issue #32462.

Browse Source 
git-svn-id: trunk@55928 -
This commit is contained in:
juha 2017-09-26 11:27:54 +00:00
parent 1d7dfe0488
commit 835f1e78f2
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/include/treeview.inc
View File

@ -4398,7 +4398,7 @@ begin
PHint := ClientToScreen(Point(ClientWidth, TextRect.Top-3+BorderWidth));
if PHint.X + R.Right > CurMonitor.BoundsRect.Right then
begin // No space on the right? Put it to the left side.
PLeft := ClientToScreen(Point(TextRect.Left-6, TextRect.Top));
PLeft := ClientToScreen(Point(ClientRect.Left, ClientRect.Top));
if PLeft.X >= R.Right then // enough space on left?
PHint.X := PLeft.X - R.Right;
end;