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

tvplanit: Fix text with font height 0 being too small in printout.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4898 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-07-02 22:46:05 +00:00
parent 9fc76923f9
commit 1159900b4e
8 changed files with 49 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
components/tvplanit/source/vpweekviewpainter.pas
View File

@ -630,6 +630,14 @@ begin
SavePenBrush;
InitPenBrush;
with FWeekView do begin
AllDayEventAttributes.Font.Height := GetRealFontHeight(AllDayEventAttributes.Font);
DayHeadAttributes.Font.Height := GetRealFontHeight(DayHeadAttributes.Font);
EventFont.Height := GetRealFontHeight(EventFont);
Font.Height := GetRealFontHeight(Font);
HeadAttributes.Font.Height := GetRealFontHeight(HeadAttributes.Font);
end;
Rgn := CreateRectRgn(RenderIn.Left, RenderIn.Top, RenderIn.Right, RenderIn.Bottom);
try
SelectClipRgn(RenderCanvas.Handle, Rgn);