mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-18 11:39:09 +02:00
LCL: Place a non-transparent TreeView hint further left. Issue #32462.
git-svn-id: trunk@55928 -
This commit is contained in:
parent
1d7dfe0488
commit
835f1e78f2
@ -4398,7 +4398,7 @@ begin
|
|||||||
PHint := ClientToScreen(Point(ClientWidth, TextRect.Top-3+BorderWidth));
|
PHint := ClientToScreen(Point(ClientWidth, TextRect.Top-3+BorderWidth));
|
||||||
if PHint.X + R.Right > CurMonitor.BoundsRect.Right then
|
if PHint.X + R.Right > CurMonitor.BoundsRect.Right then
|
||||||
begin // No space on the right? Put it to the left side.
|
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?
|
if PLeft.X >= R.Right then // enough space on left?
|
||||||
PHint.X := PLeft.X - R.Right;
|
PHint.X := PLeft.X - R.Right;
|
||||||
end;
|
end;
|
||||||
|
Loading…
Reference in New Issue
Block a user