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

tvplanit: Remove variable wvEventList from TVpWeekView, not used.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8416 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2022-08-23 11:26:53 +00:00
parent c11c9f5163
commit e0d6926bee
1 changed files with 0 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -202,7 +202,6 @@ type
{ internal variables } { internal variables }
wvActiveEventRec: TRect; wvActiveEventRec: TRect;
wvEventArray: TVpEventArray; wvEventArray: TVpEventArray;
wvEventList: TList;
wvHeaderHeight: Integer; wvHeaderHeight: Integer;
wvRowHeight: Integer; wvRowHeight: Integer;
wvStartDate: TDateTime; wvStartDate: TDateTime;
@ -553,7 +552,6 @@ begin
FEventFont.Assign(Font); FEventFont.Assign(Font);
FShowEventTime := true; FShowEventTime := true;
wvInLinkHandler := false; wvInLinkHandler := false;
wvEventList := TList.Create;
wvClickTimer := TTimer.Create(self); wvClickTimer := TTimer.Create(self);
wvHotPoint := Point(0, 0); wvHotPoint := Point(0, 0);
wvDragging := false; wvDragging := false;
@ -618,7 +616,6 @@ begin
FHeadAttr.Free; FHeadAttr.Free;
wvClickTimer.Free; wvClickTimer.Free;
FEventFont.Free; FEventFont.Free;
wvEventList.Free;
FDefaultPopup.Free; FDefaultPopup.Free;
inherited; inherited;
end; end;