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

tvplanit: Fix GanttView crashing with empty datastore.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8682 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2023-01-16 12:23:11 +00:00
parent ba6395039f
commit 77b16a5ce6
2 changed files with 7 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -1691,6 +1691,9 @@ begin
end;
SetLength(FWeekRecords, GetNumWeeks);
if Length(FWeekRecords) = 0 then
exit;
x1 := FixedColWidth;
y1 := 0;
if (gchMonth in FColHeaderAttributes.Visible) then