paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-08-18 17:59:05 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Patch from Henrique Werlang to let datalink transmit events ony when active

Browse Source
This commit is contained in:
michael 2021-02-19 15:38:36 +00:00
parent b8155b93cb
commit b70bd9f844
1 changed files with 56 additions and 59 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
packages/fcl-db/db.pas
View File

@ -7609,12 +7609,8 @@ Var
B : Boolean; B : Boolean;
begin begin
B:=Assigned(DataSource) and Not (DataSource.State in [dsInactive,dsOpening]); B:=Assigned(DataSource) and not (DataSource.State in [dsInactive, dsOpening]);
If B<>FActive then SetActive(B);
begin
FActive:=B;
ActiveChanged;
end;
B:=Assigned(DataSource) and (DataSource.State in dsEditModes) and Not FReadOnly; B:=Assigned(DataSource) and (DataSource.State in dsEditModes) and Not FReadOnly;
If B<>FEditing Then If B<>FEditing Then
begin begin
@ -7663,29 +7659,30 @@ end;
Procedure TDataLink.DataEvent(Event: TDataEvent; Info: JSValue); Procedure TDataLink.DataEvent(Event: TDataEvent; Info: JSValue);
begin begin
Case Event of if Event = deUpdateState then
CheckActiveAndEditing
else if Active then
case Event of
deFieldChange, deRecordChange: deFieldChange, deRecordChange:
If Not FUpdatingRecord then if not FUpdatingRecord then
RecordChanged(TField(Info)); RecordChanged(TField(Info));
deDataSetChange: begin deDataSetChange:
begin
SetActive(DataSource.DataSet.Active); SetActive(DataSource.DataSet.Active);
CalcRange; CalcRange;
CalcFirstRecord(Integer(Info)); CalcFirstRecord(Integer(Info));
DatasetChanged; DatasetChanged;
end; end;
deDataSetScroll: DatasetScrolled(CalcFirstRecord(Integer(Info))); deDataSetScroll: DatasetScrolled(CalcFirstRecord(Integer(Info)));
deLayoutChange: begin deLayoutChange:
begin
CalcFirstRecord(Integer(Info)); CalcFirstRecord(Integer(Info));
LayoutChanged; LayoutChanged;
end; end;
deUpdateRecord: UpdateRecord; deUpdateRecord: UpdateRecord;
deUpdateState: CheckActiveAndEditing;
deCheckBrowseMode: CheckBrowseMode; deCheckBrowseMode: CheckBrowseMode;
deFocusControl: deFocusControl: FocusControl(Info);
FocusControl(Info);
end; end;
end; end;