pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

TvPlanIt: Minor improvements.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8917 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2023-08-07 22:10:44 +00:00
parent ab24065d59
commit 7805ba4569
2 changed files with 4 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
components/tvplanit/source/vpnavbar.pas
View File

@ -1619,7 +1619,7 @@ begin
SpaceTop := TVpNavBtnItem(Folder.Items[I - 1]).FLabelRect.Bottom + 1;
SpaceBottom := TVpNavBtnItem(Folder.Items[I]).FIconRect.Top - 1;
if (Y >= SpaceTop) and (Y <= SpaceBottom) then begin
if SpaceTop - SpaceBottom < 6 then
if SpaceBottom - SpaceTop > 6 then
nabDropY := SpaceTop + (SpaceBottom - SpaceTop) div 2
else
nabDropY := SpaceTop + 3;