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

tvplanit: draw month header dividing lines so that they do not run through week headers. Fix showing of month/week/day column headers.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8501 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2022-09-23 20:07:48 +00:00
parent 8de2203a9b
commit 31a2f25a42
2 changed files with 23 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
components/tvplanit/source/vpganttview.pas
View File

@@ -1411,10 +1411,15 @@ begin
SetLength(FMonthRecords, n);
if (Datastore = nil) or (Datastore.Resource = nil) then
exit;
if not (gchMonth in FColHeaderAttributes.Visible) then
exit;
x1 := FixedColWidth;
y1 := 0;
y2 := FTotalColHeaderHeight;
if [gchWeek, gchDay] * FColHeaderAttributes.Visible = [gchWeek, gchDay] then
y2 := FMonthColHeaderHeight + FTextMargin
else
y2 := FTotalColHeaderHeight;
if n > 1 then
begin
@@ -1455,6 +1460,12 @@ var
d: TVpDayType;
dt1, dt2: TDateTime;
begin
if not (gchWeek in FColHeaderAttributes.Visible) then
begin
SetLength(FWeekRecords, 0);
exit;
end;
SetLength(FWeekRecords, GetNumWeeks);
x1 := FixedColWidth;
y1 := 0;