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

tvplanit: Fix slowing down of DayView (by DonAlfredo)

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4723 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-06-12 09:35:53 +00:00
parent ad60253a27
commit 58b8bc5409
1 changed files with 1 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
components/tvplanit/source/vpcanvasutils.pas
View File

@ -1799,6 +1799,7 @@ var
begin begin
Result := False; Result := False;
Done := False; Done := False;
GetRgnBox (ARegion, @WorkRect);
while not Done do begin while not Done do begin
if HPos > WorkRect.Right then begin if HPos > WorkRect.Right then begin
HPos := WorkRect.Left; HPos := WorkRect.Left;