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

tvplanit: Fix week painting artefacts due to scrolling. Fix truncation error of all-day events at limits of date range.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8502 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2022-09-24 10:50:26 +00:00
parent 31a2f25a42
commit a02d733cec
2 changed files with 27 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
components/tvplanit/source/vpganttviewpainter.pas
View File

@ -425,6 +425,9 @@ begin
R := ScaleRect(R);
OffsetRect(R, -dx , 0);
if R.Right <= RealLeft + FScaledFixedColWidth then
continue;
// Clip at fixed col edge
if R.Left < RealLeft + FScaledFixedColWidth then
R.Left := RealLeft + FScaledFixedColWidth;
@ -433,7 +436,7 @@ begin
if FGanttView.DrawingStyle = ds3D then
begin
R1 := R;
if i > 0 then
// if i > 0 then
inc(R1.Left);
dec(R1.Bottom);
DrawBevelRect(
@ -616,6 +619,9 @@ begin
R := ScaleRect(R);
OffsetRect(R, -dx , 0);
if R.Right <= RealLeft + FScaledFixedColWidth then
Continue;
// Clip at fixed col edge
if R.Left < RealLeft + FScaledFixedColWidth then
R.Left := RealLeft + FScaledFixedColWidth;
@ -624,7 +630,7 @@ begin
if FGanttView.DrawingStyle = ds3D then
begin
R1 := R;
if i > 0 then
// if i > 0 then
inc(R1.Left);
dec(R1.Bottom);
DrawBevelLine(