paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-08-12 03:25:50 +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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

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