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

tvplanit: Fix new events initially being displayed as overlayed.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5151 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-09-11 08:23:51 +00:00
parent 8b0e5c6f3e
commit ad82eacee5
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1154,7 +1154,7 @@ var
res: TVpResource; // resource to which the event belongs res: TVpResource; // resource to which the event belongs
begin begin
Result := false; Result := false;
if (FOwner <> nil) then begin if (FOwner <> nil) and (FResourceID > 0) then begin
res := FOwner.FOwner; res := FOwner.FOwner;
if (res <> nil) and (res.ResourceID <> FResourceID) then if (res <> nil) and (res.ResourceID <> FResourceID) then
Result := true; Result := true;