From ab1d9ee4dc107335afba3b09c2fd065a4957953f Mon Sep 17 00:00:00 2001 From: wp_xxyyzz Date: Fri, 2 Sep 2016 23:28:09 +0000 Subject: [PATCH] tvplanit: Fix mormotdemo not being updated after changed dataset. git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5125 8e941d3f-bd1b-0410-a28a-d453659cc2b4 --- components/tvplanit/examples/fulldemo/mormotdemo.lpi | 1 - components/tvplanit/source/vpbaseds.pas | 10 +++++----- 2 files changed, 5 insertions(+), 6 deletions(-) diff --git a/components/tvplanit/examples/fulldemo/mormotdemo.lpi b/components/tvplanit/examples/fulldemo/mormotdemo.lpi index 1a7e52a8c..9dfee0fef 100644 --- a/components/tvplanit/examples/fulldemo/mormotdemo.lpi +++ b/components/tvplanit/examples/fulldemo/mormotdemo.lpi @@ -26,7 +26,6 @@ - diff --git a/components/tvplanit/source/vpbaseds.pas b/components/tvplanit/source/vpbaseds.pas index 3b16dab78..52aab3cdd 100644 --- a/components/tvplanit/source/vpbaseds.pas +++ b/components/tvplanit/source/vpbaseds.pas @@ -815,13 +815,13 @@ procedure TVpCustomDataStore.NotifyDependents; var I: Integer; begin - if (Owner = nil) or Loading then + if (FLinkedOwner = nil) or Loading then Exit; - for I := 0 to pred(Owner.ComponentCount) do begin - if (Owner.Components[I] is TVpLinkableControl) then begin - if (TVpLinkableControl(Owner.Components[I]).DataStore = self) then - TVpLinkableControl(Owner.Components[I]).Invalidate; + for I := 0 to pred(FLinkedOwner.ComponentCount) do begin + if (FLinkedOwner.Components[I] is TVpLinkableControl) then begin + if (TVpLinkableControl(FLinkedOwner.Components[I]).DataStore = self) then + TVpLinkableControl(FLinkedOwner.Components[I]).Invalidate; end end; NotifyLinked;