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

4
components/tvplanit/source/vpnavbarpainter.pas
View File

@ -156,6 +156,7 @@ var
h: Integer; h: Integer;
R: TRect; R: TRect;
dx, dy: Integer; dx, dy: Integer;
buttonDistance: Integer;
{$IFDEF LCL} {$IFDEF LCL}
{$IF LCL_FullVersion >= 1090000} {$IF LCL_FullVersion >= 1090000}
imgres: TScaledImageListResolution; imgres: TScaledImageListResolution;
@ -170,6 +171,7 @@ begin
// horizontally // horizontally
dy := ScaleY(LARGE_ICON_TEXT_DISTANCE, DesignTimeDPI); dy := ScaleY(LARGE_ICON_TEXT_DISTANCE, DesignTimeDPI);
dx := ScaleX(SMALL_ICON_TEXT_DISTANCE, DesignTimeDPI); dx := ScaleX(SMALL_ICON_TEXT_DISTANCE, DesignTimeDPI);
buttonDistance := ScaleY(BUTTON_DISTANCE, DesignTimeDPI);
{ If an image list is assigned then use the image size. { If an image list is assigned then use the image size.
If no image list is assinged then assume a 32 x 32 image size. If no image list is assinged then assume a 32 x 32 image size.
@ -194,7 +196,7 @@ begin
exit; exit;
// Distance of top-most icon to the last upper button // Distance of top-most icon to the last upper button
Inc(CurPos, ScaleY(BUTTON_DISTANCE, DesignTimeDPI)); Inc(CurPos, buttonDistance);
with nabItemsRect^ do begin with nabItemsRect^ do begin
Top := CurPos; Top := CurPos;