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

tvplanit: Fix TvGanttView's weekend bars painting over fixed columns.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8472 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2022-09-11 17:38:30 +00:00
parent 5704686e09
commit e80cd89ca7
1 changed files with 4 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -535,6 +535,10 @@ begin
R := ScaleRect(dayRec.Rect); R := ScaleRect(dayRec.Rect);
x1 := R.Left - dx; x1 := R.Left - dx;
x2 := R.Right - dx; x2 := R.Right - dx;
if x2 < FScaledFixedColWidth then
Continue;
if x1 < FScaledFixedColWidth then
x1 := FScaledFixedColWidth;
TPSFilLRect(RenderCanvas, Angle, RenderIn, Rect(x1, y1, x2, y2)); TPSFilLRect(RenderCanvas, Angle, RenderIn, Rect(x1, y1, x2, y2));
end; end;
end; end;