paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki 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
Show Stats 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
Top = 48
Width = 780
ActivePage = TabSettings
ActivePage = TabTasks
Align = alClient
TabIndex = 4
TabIndex = 1
TabOrder = 0
object TabEvents: TTabSheet
Caption = 'Events'

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

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