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

tvplanit: Undo previous commit (resorting by time) - it causes a hang.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4874 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-06-30 20:26:14 +00:00
parent f268a8663b
commit c847f138e6
2 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
components/tvplanit/source/vpdayviewpainter.pas
View File

@ -1630,7 +1630,7 @@ begin
{ Now sort times in ascending order. This must be done because the event { Now sort times in ascending order. This must be done because the event
list can contain recurring events which have the wrong date part } list can contain recurring events which have the wrong date part }
EventList.Sort(CompareEventsByTimeOnly); // EventList.Sort(CompareEventsByTimeOnly);
{ Arrange this day's events in the event matrix } { Arrange this day's events in the event matrix }
level := 0; level := 0;

2
components/tvplanit/source/vpweekviewpainter.pas
View File

@ -300,7 +300,7 @@ begin
{ Now sort times in ascending order. This must be done because the event { Now sort times in ascending order. This must be done because the event
list can contain recurring events which have the wrong date part } list can contain recurring events which have the wrong date part }
EventList.Sort(CompareEventsByTimeOnly); // EventList.Sort(CompareEventsByTimeOnly);
{ initialize TextRect for this day } { initialize TextRect for this day }
TextRect := DayRect; TextRect := DayRect;