Commit 432b9f96 authored by Martin Schreiber's avatar Martin Schreiber

+ tdatasource.updaterecord().

parent bfe66e00
......@@ -1921,6 +1921,7 @@ type
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
procedure Edit;
procedure updaterecord();
function IsLinkedTo(ADataSet: TDataSet): Boolean;
property State: TDataSetState read FState;
property active: boolean read getactive;
......@@ -9367,7 +9368,6 @@ begin
Dataset.Edit;
end;
Function TDataSource.IsLinkedTo(ADataSet: TDataSet): Boolean;
begin
......@@ -9525,6 +9525,11 @@ begin
end;
end;
procedure TDataSource.updaterecord();
begin
processevent(deupdaterecord,0);
end;
procedure TDataSource.ifistatechanged(const sender: tdatalink;
const aclient: iificlient; const astate: ifiwidgetstatesty);
begin
......
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