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

tvplanit: New demo (navbar). Fix distance of small icons in navbar.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4989 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-07-17 20:05:36 +00:00
parent 829bff542a
commit ced32e0763
5 changed files with 1783 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -329,9 +329,10 @@ begin
labelWidth := WidthOf(R);
R.Right := R.Left + labelWidth + 1;
item.LabelRect := R;
DrawText(Canvas.Handle, Buf, Length(item.DisplayName), R, DT_LEFT or DT_VCENTER);
X := DrawText(Canvas.Handle, Buf, Length(item.DisplayName), R, DT_LEFT or DT_VCENTER);
if X < H then X := H;
Inc(CurPos, FItemSpacing);
Inc(CurPos, FItemSpacing + X);
end; { Small icons }
end; { for J }
end; { if folder.FolderType = ftDefault }