pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases 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
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> <RunParams>
<local> <local>
<FormatVersion Value="1"/> <FormatVersion Value="1"/>
<CommandLineParams Value="-noserver"/>
</local> </local>
</RunParams> </RunParams>
<RequiredPackages Count="3"> <RequiredPackages Count="3">

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

@ -815,13 +815,13 @@ procedure TVpCustomDataStore.NotifyDependents;
var var
I: Integer; I: Integer;
begin begin
if (Owner = nil) or Loading then if (FLinkedOwner = nil) or Loading then
Exit; Exit;
for I := 0 to pred(Owner.ComponentCount) do begin for I := 0 to pred(FLinkedOwner.ComponentCount) do begin
if (Owner.Components[I] is TVpLinkableControl) then begin if (FLinkedOwner.Components[I] is TVpLinkableControl) then begin
if (TVpLinkableControl(Owner.Components[I]).DataStore = self) then if (TVpLinkableControl(FLinkedOwner.Components[I]).DataStore = self) then
TVpLinkableControl(Owner.Components[I]).Invalidate; TVpLinkableControl(FLinkedOwner.Components[I]).Invalidate;
end end
end; end;
NotifyLinked; NotifyLinked;