Commit 1a0b8075 authored by Martin Schreiber's avatar Martin Schreiber

+ tfieldparamlink.onmasterapplyupdate.

parent 84927c4c
......@@ -312,6 +312,7 @@ type
fonslavedelete: slavedataseteventty;
fonmasterpost: masterdataseteventty;
fonslavepost: slavedataseteventty;
fonmasterapplyupdate: masterdataseteventty;
function getdatasource: tdatasource; overload;
procedure setdatasource(const avalue: tdatasource);
function getvisualcontrol: boolean;
......@@ -382,6 +383,8 @@ type
write fonmasterpost;
property onslavepost: slavedataseteventty read fonslavepost
write fonslavepost;
property onmasterapplyupdate: masterdataseteventty read fonmasterapplyupdate
write fonmasterapplyupdate;
end;
tsequencelink = class;
......@@ -1156,6 +1159,9 @@ begin
if b1 and (fplo_syncmasterapplyupdates in foptions) then begin
destdataset.applyupdates();
end;
if assigned(fonmasterapplyupdate) then begin
fonmasterapplyupdate(destdataset,dataset);
end;
end;
end;
finally
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment