paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-04-17 16:39:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Delete action

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-09-10 23:14:00 +02:00
parent 21976f3689
commit 3d012f3ddf
1 changed files with 6 additions and 2 deletions

8
packages/fcl-db/data.htmlactions.pp
View File

@ -151,7 +151,7 @@ Type
{ TDBCustomHTMLButtonElementAction }
TDBButtonAction = (baFirst,baPrior,baNext,baLast,baEdit,baAppend,baInsert,baPost,baCancel,baApplyUpdates);
TDBButtonAction = (baFirst,baPrior,baNext,baLast,baEdit,baAppend,baInsert,baPost,baCancel,baDelete,baApplyUpdates);
TDBButtonActions = Set of TDBButtonAction;
TDBCustomHTMLButtonElementAction = class(THTMLCustomElementAction)
@ -201,7 +201,7 @@ Type
Implementation
uses strutils, rtl.HTMLUtils;
uses rtl.HTMLUtils;
{ TButtonActionDataLink }
@ -329,6 +329,7 @@ begin
baInsert : Insert;
baPost : Post;
baCancel : Cancel;
baDelete : Delete;
baApplyUpdates : ApplyUpdates;
end;
end;
@ -476,6 +477,7 @@ Var
begin
F:=Field;
E:=Element;
Writeln(Name,' FieldName : ',FieldName,' field: ',Assigned(F),' element : ',assigned(E));
if Not (Assigned(F) and assigned(E)) then
Exit;
Value:=TransFormFieldText(Field,F.AsString);
@ -629,6 +631,7 @@ Var
begin
F:=Field;
E:=Element;
Writeln(Name,'Elementtodataset FieldName : ',FieldName,' field: ',Assigned(F),' element : ',assigned(E));
if Not Assigned(F) then
exit;
if E is TJSHTMLInputElement then
@ -655,6 +658,7 @@ Var
begin
F:=Field;
E:=Element;
Writeln(Name,'dataset to element FieldName : ',FieldName,' field: ',Assigned(F),' element : ',assigned(E));
if Not (Assigned(F) and Assigned(E)) then
Exit;
Self.Value:=TransFormFieldText(Field,F.AsString);