paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

tvplanit: Fix mormotdemo not being updated after changed dataset.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5125 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz 2016-09-02 23:28:09 +00:00
parent dfe9715d19
commit ab1d9ee4dc
2 changed files with 5 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
components/tvplanit/examples/fulldemo/mormotdemo.lpi
View File

@ -26,7 +26,6 @@
<RunParams>
<local>
<FormatVersion Value="1"/>
<CommandLineParams Value="-noserver"/>
</local>
</RunParams>
<RequiredPackages Count="3">

10
components/tvplanit/source/vpbaseds.pas
View File

@ -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;