From 54b6dbb3c87a7c0cd0a33b7d24e826f5c5b19393 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Micha=C3=ABl=20Van=20Canneyt?= Date: Sat, 30 Dec 2023 17:17:31 +0100 Subject: [PATCH] * Use correct properties for OK button, and close on cancel button click --- packages/bulma/src/bulmawidgets.pas | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/packages/bulma/src/bulmawidgets.pas b/packages/bulma/src/bulmawidgets.pas index b90d288..a43f1da 100644 --- a/packages/bulma/src/bulmawidgets.pas +++ b/packages/bulma/src/bulmawidgets.pas @@ -108,6 +108,7 @@ Type Procedure Hide; Function HTMLTag : String; override; Property Showing : Boolean Read FShowing; + Property Reference; // Id of the modal toplevel element. If not set, the first child is used. Published Property ParentID; @@ -472,7 +473,10 @@ begin NList:=Element.querySelectorAll('.modal-background, .modal-close, .modal-card-head .delete'); for I:=0 to Nlist.length-1 do TJSHTMLElement(NList.Nodes[i]).addEventListener('click',@HideClick); - E:=References.FindElementByName('OK'); + E:=References.FindElementByName(OKButtonName); + if (E<>Nil) then + E.addEventListener('click',@HideClick); + E:=References.FindElementByName(CancelButtonName); if (E<>Nil) then E.addEventListener('click',@HideClick); for I:=0 to References.Count-1 do