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

TvPlanIt: Fix TVpNavBar not painting the first button text if IconSize is small. Issue #39055

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8904 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2023-07-29 18:01:02 +00:00
parent fc05b9395e
commit 67b5df031c
2 changed files with 426 additions and 1336 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1759
components/tvplanit/examples/navbar/unit1.lfm
View File

File diff suppressed because it is too large Load Diff

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

@ -619,8 +619,7 @@ begin
AItem.LabelRect := R; AItem.LabelRect := R;
bkMode := SetBkMode(Canvas.Handle, TRANSPARENT); bkMode := SetBkMode(Canvas.Handle, TRANSPARENT);
Canvas.TextOut(R.Left, (R.Top + R.Bottom - AHeight) div 2, s); DrawText(Canvas.Handle, PChar(s), Length(s), R, DT_LEFT or DT_VCENTER);
// AHeight := DrawText(Canvas.Handle, PChar(s), Length(s), R, DT_LEFT or DT_VCENTER);
SetBkMode(Canvas.Handle, bkMode); SetBkMode(Canvas.Handle, bkMode);
AHeight := HeightOf(R); AHeight := HeightOf(R);