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

tvplanit: Avoid header text of week view to overlap with spin buttons.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4703 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-06-09 22:52:55 +00:00
parent abcfb2a7ac
commit 3e1a370a4b
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -126,7 +126,7 @@ type
FDateLabelFormat : string; FDateLabelFormat : string;
FDayHeadAttributes : TVpDayHeadAttr; FDayHeadAttributes : TVpDayHeadAttr;
FDrawingStyle : TVpDrawingStyle; FDrawingStyle : TVpDrawingStyle;
FaActiveEvent : TVpEvent; FaActiveEvent : TVpEvent;
FHeadAttr : TVpWvHeadAttributes; FHeadAttr : TVpWvHeadAttributes;
FEventFont : TFont; FEventFont : TFont;
FLineColor : TColor; FLineColor : TColor;
@ -1075,7 +1075,7 @@ var
RenderCanvas.TextWidth (HeadStr)) div 2, RenderCanvas.TextWidth (HeadStr)) div 2,
HeadRect.Top) HeadRect.Top)
else else
HeadTextRect.TopLeft := Point (RealLeft + 30 + TextMargin * 2, HeadTextRect.TopLeft := Point (RealLeft + Trunc(wvHeaderHeight * 0.8) * 2 + TextMargin * 2,
HeadRect.Top); HeadRect.Top);
HeadTextRect.BottomRight := HeadRect.BottomRight; HeadTextRect.BottomRight := HeadRect.BottomRight;
{ Fix Header String } { Fix Header String }