paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-04-07 15:47:45 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix dokeydown for input element

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-05-09 11:17:11 +02:00
parent ae2fc1516b
commit df0484df52
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -103,7 +103,7 @@ Type
TDBCustomHTMLInputElementAction = class(TDBCustomHTMLElementAction)
Private
procedure DoKeyDown(aEvent: TJSEvent); virtual;
procedure DoKeyDown(aEvent: TJSEvent); override;
Procedure ActiveChanged; override;
Procedure StartEditing; override;
Procedure EndEditing; override;
@ -486,12 +486,15 @@ procedure TDBCustomHTMLInputElementAction.BindEvents(aEl: TJSElement);
begin
inherited BindEvents(aEl);
aEl.addEventListener(sEventKeyDown,@DoKeyDown);
if SameText(aEl.tagName,'select') then
aEl.addEventListener(sEventClick,@DoKeyDown);
end;
procedure TDBCustomHTMLInputElementAction.DoKeyDown(aEvent : TJSEvent);
begin
if aEvent is TJSKeyboardEvent then
if (aEvent is TJSKeyboardEvent)
or (aEvent is TJSMouseEvent) then
begin
if not Link.Edit then
begin