paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-08-29 23:20:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Better click event needed detection

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-10-15 17:45:03 +02:00
parent 05c189cbb5
commit 2bea7d21f6
1 changed files with 14 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -102,9 +102,10 @@ Type
end;
TDBCustomHTMLInputElementAction = class(TDBCustomHTMLElementAction)
Private
Protected
procedure DoKeyDown(aEvent: TJSEvent); override;
Procedure ActiveChanged; override;
function NeedsClick(aEl: TJSElement): Boolean;
Procedure StartEditing; override;
Procedure EndEditing; override;
Procedure LayoutChanged; override;
@ -201,7 +202,7 @@ Type
Implementation
uses rtl.HTMLUtils;
uses strutils, rtl.HTMLUtils;
{ TButtonActionDataLink }
@ -477,21 +478,29 @@ Var
begin
F:=Field;
E:=Element;
Writeln(Name,' FieldName : ',FieldName,' field: ',Assigned(F),' element : ',assigned(E));
// Writeln(Name,' FieldName : ',FieldName,' field: ',Assigned(F),' element : ',assigned(E));
if Not (Assigned(F) and assigned(E)) then
Exit;
Value:=TransFormFieldText(Field,F.AsString);
end;
Function TDBCustomHTMLInputElementAction.NeedsClick(aEl : TJSElement) : Boolean;
begin
Result:=SameText(aEl.tagName,'select');
if (not Result) and SameText(aEl.tagName,'input') then
Result:=IndexText(String(aEl['type']),['date','time','number','checkbox','radio'])<>-1;
end;
procedure TDBCustomHTMLInputElementAction.BindEvents(aEl: TJSElement);
begin
inherited BindEvents(aEl);
aEl.addEventListener(sEventKeyDown,@DoKeyDown);
if SameText(aEl.tagName,'select') then
if NeedsClick(aEl) then
aEl.addEventListener(sEventClick,@DoKeyDown);
end;
procedure TDBCustomHTMLInputElementAction.DoKeyDown(aEvent : TJSEvent);
begin
@ -658,7 +667,7 @@ Var
begin
F:=Field;
E:=Element;
Writeln(Name,'dataset to element FieldName : ',FieldName,' field: ',Assigned(F),' element : ',assigned(E));
// 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);