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

tvplanit: Fix calculation of scrollbar width for DayViewPainter

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4979 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-07-15 14:01:29 +00:00
parent 89e4cb68dd
commit e93ddb5320
2 changed files with 4 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
components/tvplanit/examples/fulldemo/demomain.lfm
View File

@ -25,9 +25,9 @@ object MainForm: TMainForm
Height = 532 Height = 532
Top = 48 Top = 48
Width = 780 Width = 780
ActivePage = TabSettings ActivePage = TabTasks
Align = alClient Align = alClient
TabIndex = 4 TabIndex = 1
TabOrder = 0 TabOrder = 0
object TabEvents: TTabSheet object TabEvents: TTabSheet
Caption = 'Events' Caption = 'Events'

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

@ -1736,7 +1736,8 @@ begin
if StartLine < 0 then if StartLine < 0 then
StartLine := FDayView.TopLine; StartLine := FDayView.TopLine;
if VisibleLines < LineCount then if VisibleLines < LineCount then
ScrollbarOffset := 14; ScrollbarOffset := GetSystemMetrics(SM_CYHSCROLL);
// ScrollbarOffset := 14;
end; end;
Rgn := CreateRectRgn(RenderIn.Left, RenderIn.Top, RenderIn.Right, RenderIn.Bottom); Rgn := CreateRectRgn(RenderIn.Left, RenderIn.Top, RenderIn.Right, RenderIn.Bottom);